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FORMATTED LISTING 

; #################################################################################################### 

; # PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 
; # FILE NAME: CONSOLE. TEXT 

; #################################################################################################### 



.TITLE "SOS Console Driver" 

.NOPATCHLIST 

. NOMACROL 1ST 



SOS Console Driver 

Copyright (C) 1983 by Apple Computer Inc. 
All Rights Reserved 

Previous Copyright (C) 1980, 1981 



Revisions : 

1 .00 14-Nov-80 



Initial Release 



1.12 23-Sep-81 
Bug fixes : 

Download 1-8 characters . 
Download entire character set. 

Include saved screen state in console state table. 
Adjust all pointers for proper extended addressing. 
Fix SYNC to monitor positive edge of vertical blanking. 
Delete extraneous data returned by status calls 12, 13, & 14 
Fix erase option of character and line delete. 
Extensions : 

Add video toggle on control-5. 

Add dump & restore contents of viewport. 

Change keyboard transform table to include alpha-lock data. 
Retain cursor on SYNC . 

1.30 ll-Jan-83 
Bug fixes : 

Wait for pending download on close. 
Fix branch in 40 column horizontal shift right. 
Fix cursor in dump & restore contents of viewport . 
Disable interrupts while setting events and screen mode. 
Extensions : 

Turn on video iff buffer is empty. 

Set bit 7 on control characters read from screen 

(applies to char copy and screen read status) . 
Don't dump viewport when displaying control characters. 
Add status reguest 9, read screen with normal/inverse flag. 

1.31 17-Mar-83 

Fix VERIFY to eleminate noise when setting screen switches. 



DEVTYPE 
SUBTYPE 
APPLE 
RELEASE 



-EQU 
. EQU 

■ EQU 

■ EQU 
.PAGE 



61 
01 

0001 
1310 



The macro SWITCH performs an N way branch based on a switch index. The 
maximum value of the switch index is 127 with bounds checking provided 
as an option. The macro uses the A and Y registers and alters the C, 
Z, and N flags of the status register, but the X register is unchanged. 

SWITCH [index], [bounds], adrs_table, [*] 

index This is the variable that is to be used as the switch index. 
If omitted, the value in the accumulator is used. 

bounds This is the maximum allowable value for index. If index 

exceeds this value, the carry bit will be set and execution 
will continue following the macro. If bounds is omitted, 
no bounds checking will be performed. 

adrs_table This is a table of addresses (low byte first) used by the 
switch . The first entry corresponds to index zero . 

* If an asterisk is supplied as the fourth parameter, the 
macro will push the switch address but will not exit to 
it; execution will continue following the macro. The 
program may then load registers or set the status before 
exiting to the switch address. 
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000085 


. IF 


"%1" 


<> " " 




000086 


LDA 


%1 






000087 


. ENDC 










000088 


. IF 




%2" 


<> " " 




000089 


CMP 




f%2+l 






000090 


BCS 


$3579 






000091 


.ENDC 










000092 


ASL 


A 






000093 


TAY 










000094 


LDA 


%3+l, 


Y 




000095 


PHA 










000096 


LDA 


%3, Y 






000097 


PHA 










000098 


. IF 


"%4" 


<> "* 




000099 


RTS 










000100 


. ENDC 










000101 


. IF 


"%2" 


<> " " 




000102 S3579 












000103 


.ENDC 










000104 


. ENDM 










000105 












000106 


. INCLUDE 




CONS 


. DAT1 


TEXT 


000107 


. INCLUDE 




CONS 


.DAT 2 


TEXT 


000108 


. INCLUDE 




CONS 


.DAT 3 


TEXT 


000109 


. INCLUDE 




CONS 


.MAIN 


TEXT 


000110 


. INCLUDE 




CONS 


.READ 


TEXT 


000111 


. INCLUDE 




CONS 


.WRIT 


TEXT 


000112 


. INCLUDE 




CONS 


. FCTN 


TEXT 


000113 


. INCLUDE 




CONS 


.STAT 


TEXT 


000114 


. INCLUDE 




CONS 


. CNTL 


TEXT 


000115 


. INCLUDE 




CONS 


. DNLD 


TEXT 


000116 


. INCLUDE 




CONS 


.MISC 


TEXT 


000117 


. INCLUDE 




CONS 


.UTL1 


TEXT 


000118 


. INCLUDE 




CONS 


. UTL2 


TEXT 


000119 












000120 


.END 










000121 














;If PARMl is present, 

; Load A with switch index 

;If PARM2 is present, 

; Perform bounds checking 

; on switch index 



;Get switch address from table 
; and push onto stack 



If PARM4 is omitted, 

Exit to code 
Otherwise, drop through 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONSOLE. TEXT 

121 

6057 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME : CONS . DAT 1 . TEXT 

#################################################################################################### 



000001 


.PROC 


CONSOLE 




000002 


.WORD 


0FFFF 




000003 


.WORD 


59. 




000004 


.ASCII 


"Console Driver — " 




000005 


.ASCII 


"Copyright (C) 1983 by Apple Computer Inc." 




000006 














000007 








000008 


Device Handler Identification Block 




000009 








000010 














000011 








000012 IDBLK .WORD 


0000 ;Link to next device 


handler 


000013 


.WORD 


CNSLDH ; Entry point address 




000014 


.BYTE 


8 ; Length of device name 


000015 


.ASCII 


" . CONSOLE " 




000016 


.BYTE 


80, 00, 00 ,-Device, Slot & Unit 


numbers 


000017 


.BYTE 


DEVTYPE 




000018 


.BYTE 


SUBTYPE 




000019 


.BYTE 


00 




000020 


.WORD 


0000 




000021 


.WORD 


APPLE 




000022 


.WORD 


RELEASE 




000023 


.WORD 


00 ;No configuration block 


000024 


.PAGE 






000025 














000026 








000027 


Global Data: 






000028 








000029 


SUSPFLSH: Suspend and Flush Output Flags 




000030 


7 => Suspend Output 






000031 


6 => Flush Output 






000032 








000033 


SCRNMODE: Current Screen Mode 




000034 


7 => Off / On 






000035 


6 => Text / Graphics 






000036 


2 => Page 1 / Page 2 






000037 


1 => 40 Col / 80 Col 






000038 


-> B & W / Color 






000039 








000040 








000041 


State Flags: 






000042 








000043 


HMODE: Hardware Mode 






000044 


7 => 40 Col / 80 Col 






000045 


1 => 40 Col / 80 Col 






000046 


=> B & W / Color 






000047 








000048 


SMODE: Software Mode 






000049 


5 => Normal / Inverse 






000050 


4 => Disable / Enable 


Cursor 




000051 


3 => Disable / Enable 


Scroll 




000052 


2 => Disable / Enable 


Auto Carriage Return 




000053 


1 => Disable / Enable 


Auto Line Feed 




000054 


=> Disable / Enable 


Auto Advance 




000055 








000056 








000057 


Permanant Zero Page Data: 






UUUUjo 








000059 


BASE1, BASE2: Screen Memory Pointers 




000060 


The base pointers point to the beginning of the current line. In 




000061 


40 column mode, BASE1 


points to the ASCII data while BASE2 points 




000062 


to the color information. In 80 column mode, BASE1 points to col- 




000063 


umn of the viewport 


while BASE2 points to column 1 . 




000064 








000065 








000066 


Temporary Zero Page Data: 






000067 








000068 


WORK1, WORK2: 






000069 


These pointers are used in conjunction with BASE1 and BASE2 for 




000070 


scrolling, shifting, 


etc . 




000071 








000072 


COUNT : 






000073 


Number of bytes read 


or written. 




000074 








000075 


ONEBYTE : 






000076 


Boolean flag for single byte read requests. 




000077 








000078 


BLANK : 






000079 


Holds an ASCII space 


in the current video mode (normal or inverse) 




000080 


for use in clearing the viewport . 




000081 








000082 


TEMPX : 






000083 


Temporary storage for 


X. 




000084 








000085 


FLAGS : 






000086 


Miscellaneous flags for use by SCROLL, SHIFT, SCRNDUMP, etc. 





000087 
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000088 ; TEMPI, TEMP 2, TEMP 3, TEMP 4 : 

000089 ; General temporary storage for use by SCROLL, SHIFT, SCRNDUMP, etc. 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS. DAT 1. TEXT 
89 

3512 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . DAT2 . TEXT 

#################################################################################################### 



000001 




.PAGE 


000002 






000003 


; SOS Global Data & 


000004 






000005 


SUSPFLSH 


.EQU 


000006 


SCRNMODE 


.EQU 


000007 


ALLOCS IR 


.EQU 


000008 


DEALCSIR 


.EQU 


000009 


QUEEVENT 


.EQU 


000010 


SYSERR 


.EQU 


000011 






000012 


SOS Error Codes 


000013 


; 




000014 


XREQCODE 


.EQU 


000015 


XCTLCODE 


.EQU 


000016 


XCTLPARM 


.EQU 


000017 


XNOTOPEN 


.EQU 


000018 


XNOTAVIL 


.EQU 


000019 


XNORESRC 


.EQU 


000020 


i 




000021 


; Hardware I/O 


Addre 


000022 


; 




000023 


KAPORT 


.EQU 


000024 


KBPORT 


. EQU 


000025 


KYBDSTRB 


. EQU 


000026 


KYBDCLR 


-EQU 


000027 


KYBDDSBL 


-EQU 


000028 


KYBDENBL 


.EQU 


000029 


BELL 


.EQU 


000030 


VMODE0 


-EQU 


000031 


VMODE1 


.EQU 


000032 


VMODE2 


. EQU 


000033 


VMODE3 


-EQU 


000034 


SCRLDSBL 


.EQU 


000035 


DNLDDSBL 


.EQU 


000036 


DNLDENBL 


-EQU 


000037 


VBLCLR 


. EQU 


000038 


VBLDSBL 


-EQU 


000039 


VBLENBL 


. EQU 


000040 


E_REG 


.EQU 


000041 


E_IORB 


.EQU 


000042 


E_PCR 


.EQU 


000043 


E_IFR 


-EQU 


000044 


E_IER 


.EQU 


000045 


B_REG 


.EQU 


000046 


; 




000047 


; ASCII Equates 


and 


000048 


; 




000049 


ASC_NUL 


.EQU 


000050 


ASC_SOH 


.EQU 


000051 


ASC_STX 


. EQU 


000052 


ASC_ETX 


.EQU 


000053 


ASC_ENQ 


.EQU 


000054 


ASC_ACK 


.EQU 


000055 


ASC_BS 


-EQU 


000056 


ASC_HT 


.EQU 


000057 


ASC_LF 


-EQU 


000058 


ASC_VT 


. EQU 


000059 


ASC_FF 


.EQU 


000060 


ASC_CR 


-EQU 


000061 


ASC_NAK 


.EQU 


000062 


ASC_CAN 


. EQU 


000063 


ASC_ESC 


.EQU 


000064 


ASC_FS 


.EQU 


000065 


ASC_GS 


.EQU 


000066 


ASC_US 


.EQU 


000067 


ASC_SP 


.EQU 


000068 


LARROW 


.EQU 


000069 


RARROW 


.EQU 


000070 


UARROW 


.EQU 


000071 


DARROW 


.EQU 


000072 






000073 


; Miscellaneous 


Equa 


000074 






000075 


TRUE 


.EQU 


000076 


FALSE 


.EQU 


000077 


BITON0 


.EQU 


000078 


BITON2 


.EQU 


000079 


BITON3 


. EQU 


000080 


BITON4 


. EQU 


000081 


BITON5 


.EQU 


000082 


BITON6 


.EQU 


000083 


BITON7 


.EQU 


000084 


BITOFF0 


.EQU 


000085 


BITOFF4 


.EQU 


000086 


BITOFF5 


.EQU 


000087 


BITOFF7 


.EQU 


000088 


BUFMAX 


-EQU 



1902 
1906 
1913 
1916 
191F 
1928 



20 
21 

22 
23 
24 
25 



0C000 

0C008 

0C010 

01 

01 

81 

0C040 

0C050 

0C052 

0C054 

0C056 

0C0D8 

0C0DA 

0C0DB 

18 

18 

90 

0FFDF 
0FFE0 
0FFEC 
0FFED 
0FFEE 
0FFEF 



00 
01 
02 
03 
05 
06 
08 
09 
OA 
0B 
0C 
0D 
15 
18 
IB 
1C 
ID 
IF 
20 

ASC_BS 
ASC_NAK 
ASC_VT 
ASC_LF 



80 

00 

01 

04 

08 

10 

20 

40 

80 

0FE 

0EF 

0DF 

07F 

80 



; Suspend & Flush flags 
; Current Screen Mode 



; Invalid request code 

; Invalid controlstatus code 

; Invalid controlstatus parm 

; Device not open 

; Device not available 

; Unable to obtain resource 



; Clear keyboard interrupt flag 
; Disable keyboard interrupts 
; Enable keyboard interrupts 

; Video mode switches 



; Disable graphics scroll 

; Disable character download 

; Enable character download 

; Clear both VBL interrupt flags 

; Disable both VBL interrupts 

; Enable VBL interrupt on CB2 

; Environment register 

; 6522 input/output register B 

; 6522 peripheral control register 

; 6522 interrupt flag register 

; 6522 interrupt mask register 

;Bank register 



Null 

Start of Header 
Start of Text 
End of Text 
Enquiry 

Acknowledgement 

Backspace 

Horizontal Tab 

Line Feed 

Vertical Tab 

Form Feed 

Carriage Return 

Negative Acknowledge 

Cancel 

Escape 

File Separator 
Group Separator 
Unit Separator 
Space 

Left Arrow 
Right Arrow 
Up Arrow 
Down Arrow 



; Maximum buffer size 
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000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 



.EQU 0C00 
.PAGE 



;Text character set address 



SOS Device Handler Interface 



SOSINT 


.EQU 


OCO 




REQCODE 


.EQU 


SOSINT+0 


; SOS request code 


BUFFPTR 


.EQU 


SOSINT+2 


; Buffer pointer 


REQCNT 


.EQU 


SOSINT+4 


; Requested count 


RTNCNT 


.EQU 


SOSINT+8 


; Returned count 


SCCODE 


.EQU 


SOSINT+2 


; Status / Control code 


SCLIST 


.EQU 


SOSINT+3 


; Status / Control list 


; Zero Page 


Data (preserved) 


and Zero Page Save Area 




ZPDATA 


.EQU 


SOSINT+10 . 




BASEPTRS 


.EQU 


ZPDATA+0 


; Screen memory base pointers 


BASE1 


.EQU 


BASEPTRS+0 


; even col . / text bytes 


BASE2 


.EQU 


BASEPTRS+2 


; odd col. / color bytes 


ZPLENGTH 


.EQU 


4 




ZPSAVE 


.BLOCK 


ZPLENGTH 




; Zero Page 


Data (temporary) 






WORKPTRS 


.EQU 


ZPDATA+ZPLENGTH 




WORK1 


.EQU 


WORKPTRS+0 




WORK2 


.EQU 


WORKPTRS+2 




COUNT 


.EQU 


WORKPTRS+4 


; Current I/O count 


ONEBYTE 


.EQU 


COUNT+2 


;One byte console read flag 


BLANK 


.EQU 


ONEBYTE+1 




TEMPX 


.EQU 


BLANK+1 




FLAGS 


.EQU 


TEMPX+1 




TEMPI 


.EQU 


FLAGS+1 




TEMP 2 


.EQU 


TEMP1+1 




TEMP 3 


.EQU 


TEMP2+1 




TEMP 4 


.EQU 


TEMP 3+1 





#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS. DAT2. TEXT 

138 

7595 

Assembly Language Reformatter 1.0.2 (07 Uanuary 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, 



New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME : CONS . DAT3 . TEXT 

#################################################################################################### 



000001 






.PAGE 






000002 






















000003 












000004 




Console 


State Table 






000005 












000006 






















000007 












000008 


CONSTTBL 


.EQU 


* 


; Console state table 


000009 












000010 


ANYKYEVNT 


. BLOCK 


5 


;Any Key Event parameters 


000011 


ATTNEVNT 


. BLOCK 


5 


; Attention Event parameters 


000012 


ATTNCHAR 


.BYTE 





; Attention character 


000013 












000014 


DFLTTBL 


.EQU 


* 


;This block initialized from 


000015 












000016 


KYBDMODE 


.BYTE 





; Console/Keyboard mode flag 


000017 


NEWLINE 


.BYTE 





;New Line flag 


000018 


NEWLNCHR 


.BYTE 





;New Line character 


000019 


NOWAIT 


.BYTE 





;No Wait flag 


000020 


ECHO 


. BYTE 





; Screen Echo flag 


000021 


CHCPYFLG 


.BYTE 





; Character Copy flag 


000022 


CHCPYCHR 


.EQU 


ASC_NAK 


; Character Copy character 


000023 


CHDELFLG 


.BYTE 





; Character Delete flag 


000024 


CHDELCHR 


.EQU 


ASC_BS 


; Character Delete character 


000025 


LNDELFLG 


.BYTE 





;Line Delete flag 


000026 


LNDELCHR 


-EQU 


ASC_CAN 


;Line Delete character 


000027 


ESCAPE 


.BYTE 





; Escape Mode flag 


000028 












000029 


SCRSTTBL 


.EQU 


* 


; Screen state table 


000030 












000031 


HMODE 


.BYTE 





; Hardware mode 


000032 


SMODE 


.BYTE 





; Software mode 


000033 


TPX 


.BYTE 





;Text position 


000034 


TPY 


.BYTE 







000035 


VPL 


.BYTE 





; Viewport 


000036 


VPR 


.BYTE 


79. 




000037 


VPT 


.BYTE 







000038 


VPB 


.BYTE 


23 . 




000039 


TCF 


.BYTE 


OF 


;Text color 


000040 


TCB 


.BYTE 


00 




000041 












000042 


SCRSTLEN 


.EQU 


*-SCRSTTBL 




000043 












000044 


DFLTLEN 


.EQU 


*-DFLTTBL 




000045 












000046 


SCRSTSAV 


. BLOCK 


SCRSTLEN 


; Saved screen state table 


000047 












000048 


CONSTLEN 


.EQU 


*-CONSTTBL 




000049 






.PAGE 






000050 






















000051 












000052 




Default 


Values for State 


Table 




000053 












000054 






















000055 












000056 


DFLTVAL 


.BYTE 


FALSE 


; Console / Keyboard flag 


000057 






.BYTE 


FALSE 


;Newline flag 


000058 






.BYTE 


ASC_CR 


;Newline character 


000059 






.BYTE 


FALSE 


;Nowait flag 


000060 






.BYTE 


TRUE 


; Screen echo flag 


000061 






.BYTE 


TRUE 


; Character copy flag 


000062 






.BYTE 


TRUE 


; Character delete flags 


000063 






.BYTE 


TRUE 


;Line delete flags 


000064 






.BYTE 


TRUE 


; Escape mode flags 


000065 






.BYTE 


02 


; Hardware mode 


000066 






.BYTE 


0D 


; Software mode 


000067 






.BYTE 


0. 


; Cursor position 


000068 






.BYTE 


. 




000069 






.BYTE 


. 


; Viewport 


000070 






.BYTE 


79. 




000071 






.BYTE 


. 




000072 






.BYTE 


23 . 




UUO / 3 






.BYTE 


OF 


; Text colors 


000074 






.BYTE 


00 




000075 






.PAGE 






000076 






















000077 












000078 




Private Variable Storage 






000079 












000080 






















000081 












000082 


KYBDBUFS 


.EQU 


01500 


;Type ahead buffers 


000083 


KABUF 


.EQU 


KYBDBUFS 




000084 


KBBUF 


.EQU 


KYBDBUFS+BUFMAX 




000085 


XFORMTBL 


.EQU 


01700 


;Keyboard transform table 


000086 












000087 


KADATA 


.BYTE 





;Temp Storage 


000088 


KBDATA 


.BYTE 





; for Interrupt Processing 
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000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 



KEYCNT 


.BYTE 





; Buffered keystroke count 


BUFSIZ 


. BYTE 





; Current buffer size 


BUFHEAD 


.BYTE 





; Index of first character 


BUFTAIL 


.BYTE 





; Index of last character 


OPENFLG 


.BYTE 





; Device open flag 


READING 


.BYTE 





;Read in progress flag 


DSPLYCTL 


.BYTE 





; Display control characters 


SMFLAGS 


.EQU 


* 




SMINV 


.BYTE 





; Inverse video 


SMCURSOR 


.BYTE 





; Cursor enabled 


SMSCROLL 


.BYTE 





/Scroll flag 


SMAUTOCR 


.BYTE 





;Auto CR 


SMAUTOLF 


.BYTE 





;Auto LF 


SMAUTOADV 


.BYTE 





;Auto advance 


'" 

VPHMAX 


. BYTE 


79 . 


; viewport maximum horizontal index 


VPVMAX 


.BYTE 


23. 


; viewport maximum vertical index 


TCOLOR 


.BYTE 


0F0 


;text fg/bg color byte 


CTLINDX 


.BYTE 





; function buffer index 


CTLBUFF 


.BLOCK 


8 


; control function buffer 


CTLQUOTA 


.BYTE 





; parameter quota 


DNLDFLG 


.BYTE 


00 


;Bit 7=Active, Bit 6=Request 


DNLDCEL 


.BYTE 


00 


; Current download cell number 


DNLDCHR 


.BYTE 


00 


; Current download ASCII code 


DNLDIMG 


.WORD 


0000 


; Pointer to character image 




.PAGE 






; Addresses used as subroutine parameters and 


SIR request tables 


ANYKYPARM 


.WORD 


ANYKYEVNT 




ATTNPARM 


.WORD 


ATTNEVNT 




KYBDSADR 


.WORD 


KYBDSTBL 




KYBDSTBL 


.BYTE 


2, 


; Keyboard interrupt 




.WORD 


KYBDMIH 




KYBDBANK 


.BYTE 







KYBDSSIZ 


.EQU 


♦-KYBDSTBL 




DNLDSADR 


.WORD 


DNLDSTBL 




DNLDSTBL 


.BYTE 


5, 0,0, 0, 


;VBL positive 




.BYTE 


6, 


;VBL negative 




.WORD 


DNLDINT 




DNLDBANK 


.BYTE 









.BYTE 


10, 0, 0,0, 


; Character download / Graphics sere 


DNLDSSIZ 


.EQU 


♦-DNLDSTBL 




SYNCSADR 


.WORD 


SYNCSTBL 




SYNCSTBL 


.BYTE 


5, 0,0, 0, 


;VBL positive 


SYNCSSIZ 


.EQU 


♦-SYNCSTBL 




; Base Calculator Address 


Tables 




BASL 


.BYTE 


000, 080, 000, 080 






.BYTE 


000, 080, 000, 080 






.BYTE 


028, 0A8, 028, 0A8 






.BYTE 


028,0A8,028,0A8 






.BYTE 


050, 0D0, 050, 0D0 






.BYTE 


050, 0D0, 050, 0D0 




BASH 


.BYTE 


004, 004, 005, 005 






.BYTE 


006, 006, 007, 007 






.BYTE 


004, 004, 005, 005 






.BYTE 


006, 006, 007, 007 






.BYTE 


004, 004, 005, 005 






.BYTE 


006, 006, 007, 007 






.PAGE 






; Escape 


Command and Escape 


Operator Tables 




ESCCMD 


.BYTE 


"B" 


; Viewport bottom right 




.BYTE 


"T" 


; Viewport top left 




.BYTE 


"V" 


; Clear Viewport 




.BYTE 


"S" 


; Clear Screen 




.BYTE 


"P" 


; Clear to End of Page 




.BYTE 


"L" 


; Clear to End of Line 




.BYTE 


"H" 


; Home Cursor 




.BYTE 


ASC_BS 


;Move left 




.BYTE 


ASC_NAK 


;Move right 
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Console Driver 1.31 Source Code Listing --- 9 / 




000182 


.BYTE 


ASC_VT 


000183 


.BYTE 


ASC_LF 


000184 ECMDCNT 


.EQU 


*-ESCCMD 


000185 ; 






000186 ESCOP 


.BYTE 


ASC_ETX 


000187 


.BYTE 


ASC_STX 


000188 


.BYTE 


ASC_SOH 


000189 


.BYTE 


ASC_FS 


000190 


.BYTE 


ASC_GS 


000191 


.BYTE 


ASC_US 


000192 


.BYTE 


ASC_FF 


000193 


.BYTE 


ASC_BS 


000194 


.BYTE 


ASC_HT 


000195 


.BYTE 


ASC_VT 


000196 


.BYTE 


ASC_LF 


000197 







; Move up 
; Move down 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS. DAT3. TEXT 
197 
10599 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . MAIN . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 



000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 



Console Device Handler 

This is the device handler's entry point. It sets the extended 
addressing bytes to zero and moves in the permanant zero page 
data, then switches to the appropriate request handler. If the 
request handler modifies the permanant zero page data, it must 
call ZPOUT before it exits to SOS. 



$010 



$020 



CBADREQ 



CREQSW 



-EQU 

LDX 

LDY 

TYA 

STA 

CPX 

BCS 

LDA 

STA 

TYA 

DEX 

BPL 



LDA 
JSR 

LDA 
JSR 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.PAGE 



#0FF-ZPDATA 
#00 

1400+ZPDATA, X 

#ZPLENGTH 

$020 

ZPSAVE,X 
ZPDATA, X 



$010 

REQCODE, 8, CREQSW 



#XREQCODE 
SYSERR 

IXNOTOPEN 
SYSERR 

CNSLREAD-1 

CNSLWRIT-1 

CNSLSTAT-1 

CNSLCNTL-1 

CBADREQ- 1 

CBADREQ- 1 

CNSLOPEN-1 

CNSLCLOS-1 

CNSLINIT-1 



; Set extend bytes to zero 



; Set up zero page data 



Keyboard Interrupt Handler 



Special key 

Check for console control commands 
Do not transform character code 



$010 
$050 



AND 

CMP 
BEQ 
JMP 
LDA 
CMP 
BCC 
BNE 



#36 

#BITON2 

$050 

KIHA1KY 

KADATA 

#"5" 

$010 

$060 



; Invalid request code 
; Console is not open 



000052 


KYBDMIH .EQU 






000053 








000054 


; Read keyboard data 


and clear interrupt 




000055 








000056 


LDX 


#KYBDCLR 




000057 


LDA 


KAPORT 


;Read data port 


000058 


BMI 


$010 




000059 


STX 


E_IFR 


;No data ready — clear 


000060 


RTS 




; interrupt and exit 


000061 


$010 AND 


#BITOFF7 




000062 


STA 


KADATA 




000063 


LDA 


KBPORT 


;Read status port 


000064 


EOR 


#3C 




000065 


STA 


KBDATA 




000066 


STX 


E_IFR 


; Clear interrupt 


000067 


STX 


KYBDSTRB 


; and keyboard strobe 


000068 


BMI 


KIHSPCL 




000069 


LDA 


KADATA 




000070 


CMP 


#ASC_CR 




000071 


BNE 


KIHXFORM 




000072 


LDA 


KBDATA 




000073 


AND 


#BITON2 


; Transform CR iff 


000074 


BNE 


KIHXFORM 


; CTRL is held down 


000075 


JMP 


KIHA1KY 





; Isolate Al, A2, CTRL, & SHIFT 

; Not a console control command 
; Toggle video? 
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000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 



$060 



$070 



$080 



$090 



LDA 


SCRNMODE 


EOR 


#BITON7 


STA 


SCRNMODE 


RTS 




CMP 


#"6" 


BNE 


$070 


LDA 


#00 


STA 


KEYCNT 


STA 


BUFHEAD 


STA 


BUFTAIL 


RTS 




CMP 


# " 7 " 


BNE 


$080 


LDA 


SUSPFLSH 


EOR 


#BITON7 


STA 


SUSPFLSH 


RTS 




CMP 


# " 8 " 


BNE 


$090 


LDA 


DSPLYCTL 


EOR 


#BITON7 


STA 


DSPLYCTL 


RTS 




CMP 


#"9" 


BNE 


KIHA1KY 


LDA 


SUSPFLSH 


AND 


#BITOFF7 


EOR 


#BITON6 


STA 


SUSPFLSH 


RTS 





Standard key 

Transform character code 
Check for alpha lock 



; Flush input buffer? 



/Suspend screen output? 



/Display control characters 



;Flush screen output? 



000124 


KIHXFORM 


LDA 


KADATA 




000125 


$010 


CMP 


#7B 


; Convert ASCII code to 


000126 




BCC 


$030 


; transform table index 


000127 




CMP 


#7E 




000128 




BCC 


$020 




000129 




EOR 


#0C0 




000130 




BNE 


$040 




000131 


$020 


AND 


#5F 




000132 


$030 


ORA 


#OC0 




000133 


$040 


TAX 






000134 




LDA 


KBDATA 


;Get control & shift keys 


000135 




LSR 


A 




000136 




AND 


#03 




000137 




ORA 


XFORMTBL, X 


; OR in key number 


000138 




TAX 






000139 




LDA 


XFORMTBL, X 


;Need to test alpha lock? 


000140 




BPL 


$050 




000141 




LDA 


KBDATA 


; Check alpha lock key 


000142 




AND 


#BITON3 




000143 




BEQ 


$050 




000144 




TXA 






000145 




ORA 


#BITON0 


; Force shift key on 


000146 




TAX 






000147 


$050 


LDA 


XFORMTBL, X 


; Get key code 


000148 




AND 


#BITOFF7 




000149 




STA 


KADATA 




000150 










000151 


; Set bit 7 


according to Apple 1 key 




000152 










000153 


KIHA1KY 


LDA 


KBDATA 




000154 




AND 


#BITON4 




000155 




BEQ 


KIHCKEV 




000156 




LDA 


KADATA 




000157 




ORA 


#BITON7 




000158 




STA 


KADATA 




000159 










000160 


; Check for 


Any Key 


and Attention events 




000161 










000162 


KIHCKEV 


BIT 


READING 


; If reading, 


000163 




BMI 


$010 


; ignore Any Key event 


000164 




LDA 


ANYKYEVNT 


; Check Any Key Event 


000165 




BEQ 


$010 




000166 




LDX 


ANYKYPARM 




000167 




LDY 


ANYKYPARM+1 




000168 




JSR 


QUEEVENT 


; Queue the event 


000169 




LDA 


♦FALSE 




000170 




STA 


ANYKYEVNT 


; Disable Any Key event 


000171 




BEQ 


$020 




000172 


$010 


LDA 


ATTNEVNT 


; Check Attention Event 


000173 




BEQ 


KIHBFCH 




000174 




LDA 


KADATA 




000175 




CMP 


ATTNCHAR 




000176 




BNE 


KIHBFCH 




000177 




LDX 


ATTNPARM 




000178 




LDY 


ATTNPARM+1 




000179 




JSR 


QUEEVENT 


; Queue the event 


000180 




LDA 


♦FALSE 




000181 




STA 


ATTNEVNT 


; Disable Attention event 
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000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 



$020 



$010 



$020 
$030 



STA 


READING 


; Terminate any read in progress 


STA 


KEYCNT 


; Flush the input buffer 


STA 


BUFHEAD 




STA 


BUFTAIL 




STA 


SUSPFLSH 


; Clear suspend & flush flags 


character 






LDX 


BUFSIZ 


; Buffering enabled? 


BEQ 


$030 




DEX 






CPX 


KEYCNT 


;Any room in buffer? 


BCS 


$010 




BIT 


BELL 


; Buffer overflow 


BCC 


$030 




INC 


KEYCNT 


;Bump the key count 


LDX 


BUFTAIL 




LDA 


KADATA 




STA 


KABUF, X 


; Buffer the keystroke 


LDA 


KBDATA 




STA 


KBBUF , X 




INX 






CPX 


BUFSIZ 


;Bump buffer tail pointer 


BCC 


$020 




LDX 


#0 




STX 


BUFTAIL 




RTS 






.PAGE 







Subroutine GETKEY 

This subroutine gets the next keystroke from the type ahead buffer. 
On entry, the interrupt system must be enabled but the keyboard 
interrupt must be masked. On exit, if carry is clear, A contains 
the keyboard A port data and X contains the keyboard B port data; 
Y is undefined. If carry is set, no data is returned; either the 
buffer was empty and the NOWAIT flag is true, or the read was 
terminated by the interrupt handler. 



000224 


GETKEY 


.EQU 






000225 




LDA 


KEYCNT 


;Anything in the buffer? 


000226 




BNE 


$030 


; Yes 


000227 




PHP 






000228 




SEI 






000229 




LDA 


SCRNMODE 




000230 




ORA 


#BITON7 




000231 




STA 


SCRNMODE 


; Turn on video 


000232 




LDA 


E_REG 




000233 




ORA 


#BITON5 




000234 




STA 


E_REG 




000235 




PLP 






000236 




BIT 


NOWAIT 


; Check the NOWAIT flag 


000237 




BPL 


$010 




000238 




ASL 


READING 


; Clear the READING flag, 


000239 




RTS 




; set carry, and exit 


000240 










000241 


$010 


LDX 


BUFSIZ 


;Preserve buffer size in X 


000242 




LDA 


#1 


; Set buffer size to 1 


000243 




STA 


BUFSIZ 




000244 




LDA 


tKYBDENBL 


; Unmask the keyboard 


000245 




STA 


E_IER 




000246 




BIT 


ESCAPE 


; In ESCAPE mode? 


000247 




BVC 


$020 


; No 


000248 




CLC 






000249 




LDA 


TPX 


; Preserve current cursor and 


000250 




LDY 


HMODE 


; replace it with plus sign 


000251 




BPL 


$015 




000252 




LSR 


A 




000253 




BCC 


$015 




000254 




TAY 






000255 




LDA 


(BASE 2 ) ,Y 




000256 




PHA 






000257 




AND 


#BITON7 




000258 




ORA 


#2B 




000259 




STA 


(BASE2) , Y 




000260 




BCS 


$020 




000261 


$015 


TAY 






000262 




LDA 


(BASE1 ) , Y 




000263 




PHA 






000264 




AND 


#BITON7 




000265 




ORA 


#2B 




000266 




STA 


(BASE1) , Y 




000267 


$020 


LDA 


KEYCNT 


;Wait for a keystroke 


000268 




BEQ 


$020 




000269 




BVC 


$026 


;Not in ESCAPE mode 


000270 




PLA 




; Restore original cursor 


000271 




BCC 


$024 




000272 




STA 


(BASE2) , Y 




000273 




BCS 


$026 




000274 


$024 


STA 


(BASED , Y 
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000275 S026 LDA 


IKYBDDSBL 








;Mask the keyboard 


000276 


STA 


E_IER 










000277 


STX 


BUFSIZ 








;Restore the buffer size 


000278 


SEC 












000279 


BIT 


READING 








; Check the reading flag 


000280 


BPL 


$060 








; Exit with carry set 


000281 














000282 $030 LDY 


BUFHEAD 








; Get buffer index of keystroke 


000283 


DEC 


KEYCNT 










000284 


BNE 


$040 








; If KEYCNT = 


000285 


LDA 


#0 










000286 


STA 


BUFHEAD 








; then BUFHEAD := BUFTAIL := 


000287 


STA 


BUFTAIL 










000288 


BEQ 


$050 










000289 $040 INC 


BUFHEAD 








; else BUFHEAD := BUFHEAD + 1 


000290 


LDA 


BUFHEAD 










000291 


CMP 


BUFSIZ 








;If BUFHEAD >= BUFSIZ 


000292 


BCC 


$050 










000293 


LDA 


#0 








; then BUFHEAD : = 


000294 


STA 


BUFHEAD 










000295 $050 LDA 


KABUF, Y 








;Load the A and B port data 


000296 


LDX 


KBBUF, Y 










000297 


CLC 












000298 $060 RTS 












000299 


.PAGE 












000300 


























000301 














000302 


Subroutine SCRNECHO 












000303 














000304 


This subroutine writes a 


single character 


to the 


screen. On entry, 


000305 


the character must be in 


A. On exit 


, all 


registers 


are undefined. 


000306 














000307 


























000308 SCRNECHO -EQU 












000309 


BIT 


ECHO 








; Screen Echo enabled? 


000310 


BPL 


$010 










000311 


PHA 












000312 


JSR 


CURSOR 








; Remove cursor 


000313 


PLA 












000314 


JSR 


PRINT 








; Print the character 


000315 


JSR 


CURSOR 








; Restore cursor 


000316 $010 RTS 












000317 














000318 














000319 


























000320 














000321 


Subroutine BACKSP 












000322 














000323 


This subroutine performs 


the screen 


backspace when the console 


000324 


deletes an input character. On entry, the 


input 


Duffer pointer 


000325 


must point to the character to be deleted 


and the 


overflow flag 


000326 


must be set to indicate 


that the character 


should 


be 


erased, or 


000327 


clear to indicate that it should be 


left on the screen. On exit. 


000328 


all registers are undefined. 











000329 
000330 



000331 BACKSP 


.EQU 






000332 


LDA 


ECHO 




000333 


BPL 


$020 


; Screen Echo not enabled 


000334 


LDY 


#0 




000335 


LDA 


(BUFFPTR) , Y 


; Printable character? 


000336 


CMP 


#ASC SP 




000337 


BCC 


$020 




000338 


PHP 




; Save overflow flag 


000339 


JSR 


CURSOR 


; Remove cursor 


000340 


LDA 


#ASC_BS 




000341 


JSR 


PRINT 


; Backspace 


000342 


PLP 






000343 


BVC 


$010 


; Don't erase 


000344 


LDA 


#ASC_SP 




000345 


JSR 


PRINT 


; Erase the character 


000346 


LDA 


#ASC_BS 




000347 


JSR 


PRINT 




000348 $010 


JSR 


CURSOR 


; Restore cursor 


000349 $020 


RTS 







#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS. MAIN. TEXT 
349 
17347 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . READ . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 



Console Read Request 

Parameters : 

BUFFPTR: Pointer to caller's data buffer 

REQCNT : Requested read count 

RTNCNT: Pointer to actual read count 

Zero Page Temporary Storage 

COUNT: Number of bytes read 
ONEBYTE: TRUE if REQCNT = 1 

If the ECHO or ESCAPE functions are enabled, this segment will call 
PRINT to display a character or perform a screen control function. 



CNSLREAD .EQU 

Initialize read variables 

BIT 
BMI 

JMP 

S010 BIT 
BMI 
LDA 
PHA 
BMI 
LDA 
JSR 

S020 LDA 
STA 
LDA 
BNE 
LDA 
CMP 
BNE 
ROR 
BMI 



$030 



$040 



LDA 
AND 
STA 

LDA 
AND 
STA 
LDA 
STA 
STA 
PHP 
SEI 
STA 
LDA 
STA 
LDA 
STA 
PLP 



Main read loop 



$010 
$020 



LDA 

CMP 
LDA 
SBC 
BCC 
JMP 

JSR 
BCS 
BIT 
BPL 



Keyboard mode read 

3DRDY PHA 
LDY 
STA 
INY 
TXA 
STA 
LDA 
JMP 

Console mode read 



OPENFLG 

$010 

CNOTOPEN 
KYBDMODE 
$030 

SMCURSOR 
$020 

#ASC_ENQ 

SCRNECHO 

#FALSE 

ONEBYTE 

REQCNT+1 

$040 

REQCNT 

#1 

$040 

ONEBYTE 

$040 

REQCNT 

IBITOFFO 

REQCNT 

ESCAPE 
#BITON7 
ESCAPE 
#0 

COUNT 
COUNT+1 



SUSPFLSH 

fKYBDDSBL 

E_IER 

#TRUE 

READING 



COUNT 

REQCNT 

COUNT+1 

REQCNT+1 

$020 

CNSLEXIT 

GETKEY 
$010 

KYBDMODE 
TSTESCAPE 



#0 

(BUFFPTR) , Y 



(BUFFPTR) , Y 
#02 

BUMPCNT 



; Keyboard mode? 

; Save cursor status 

; Turn on cursor 

; Clear one byte read flag 



; Set one byte read flag 
;Make requested count even 

; Clear escape pending 

; Zero bytes read count 

; Clear suspend & flush flags 
;Mask the keyboard 
;Set the READING flag 



;If COUNT >= REQCNT 
; then goto CNSLEXIT 



;Get next keystroke 

; Console or Keyboard mode? 

;Save ASCII byte 

; Store data byte in buffer 

; Store status byte in buffer 
;Go update COUNT and BUFFPTR 
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000089 


; 








000090 


TSTESC7APE 


BIT 


ECHO 


;Test for Escape Mode 


000091 




BPL 


TSTCHDEL 




000092 




BIT 


ESCAPE 




000093 




BPL 


TSTCHDEL 




000094 




BVC 


$040 


; Escape not pending 


000095 




LDY 


#ECMDCNT-1 




000096 




CMP 


#"a" 




000097 




BCC 


$010 




000098 




CMP 


#"{" 




000099 




BCS 


$010 




000100 




AND 


#BITOFF5 


; Upshift lower case alpha 


000101 


S010 


CMP 


ESCCMD, Y 


; Search for escape command 


000102 




BEQ 


$020 




000103 




DEY 






000104 




BPL 


$010 




000105 




ASL 


ESCAPE 


;Not found — clear pending flag 


000106 




BCS 


$030 




000107 


S020 


LDA 


ESCOP, Y 


;Get screen control character 


000108 




JSR 


SCRNECHO 




000109 


$030 


JMP 


CNSLLOOP 




000110 


; 








000111 


$040 


CMP 


#ASC_ESC 


; Is this an ESC? 


000112 




BNE 


TSTCHDEL 




000113 




ROR 


ESCAPE 


; Set escape pending 


000114 




BMI 


$030 




000115 


; 








000116 


TSTCHDEL 


BIT 


ONEBYTE 


;Test for character delete 


000117 




BMI 


TSTLNDEL 




000118 




BIT 


CHDELFLG 




000119 




BPL 


TSTLNDEL 




000120 




CMP 


#CHDELCHR 




000121 




BNE 


TSTLNDEL 




000122 




LDA 


COJNT 


;Anything to delete? 


000123 




ORA 


COUNT+1 




000124 




BEQ 


$030 




000125 




LDA 


COUNT 




000126 




BNE 


$010 




000127 




DEC 


COUNT+1 


; Decrement current read count 


000128 


$010 


DEC 


COUNT 




000129 




LDA 


BUFFPTR 




000130 




BNE 


$020 




000131 




DEC 


BUFFPTR+1 


; Decrement buffer pointer 


000132 


$020 


DEC 


BUFFPTR 




000133 




JSR 


BACKSP 


; Backspace 


000134 


$030 


JMP 


CNSLLOOP 




000135 


; 








000136 


TSTLNDEL 


BIT 


ONEBYTE 


;Test for line delete 


000137 




BMI 


TSTCHCPY 




000138 




BIT 


LNDELFLG 




000139 




BPL 


TSTCHCPY 




000140 




CMP 


#LNDELCHR 




000141 




BNE 


TSTCHCPY 




000142 




LDA 


ECHO 




000143 




BPL 


$050 




000144 




BVC 


$040 




000145 


i 








000146 


$010 


LDA 


COUNT 


;Anything to delete? 


000147 




ORA 


COUNT+1 




000148 




BEQ 


$060 




000149 




LDA 


COUNT 




000150 




BNE 


$020 




000151 




DEC 


COUNT+1 


; Decrement current read count 


000152 


$020 


DEC 


COUNT 




000153 




LDA 


BUFFPTR 




000154 




BNE 


$030 




000155 




DEC 


BUFFPTR+1 


; Decrement buffer pointer 


000156 


$030 


DEC 


BUFFPTR 




000157 




BIT 


LNDELFLG 




000158 




JSR 


BACKSP 


; Backspace 


000159 




JMP 


$010 




000160 


i 








000161 


$040 


LDA 


# " \ " 




000162 




JSR 


SCRNECHO 


; Write "\ CR LF" 


000163 




LDA 


#ASC_CR 




000164 




JSR 


SCRNECHO 




000165 




LDA 


#ASC_LF 




000166 




JSR 


SCRNECHO 




000167 


$050 


SEC 






000168 




LDA 


BUFFPTR 


; Reset buffer pointer 


000169 




SBC 


COUNT 




000170 




STA 


BUFFPTR 




000171 




LDA 


BUFFPTR+1 




000172 




SBC 


COUNT+1 




000173 




STA 


BUFFPTR+1 




000174 




LDA 


#0 


; Reset current read count 


000175 




STA 


COUNT 




000176 




STA 


COUNT+1 




000177 


$060 


JMP 


CNSLLOOP 




000178 










000179 


TSTCHCPY 


BIT 


ECHO 


;Test for character copy 


000180 




BPL 


CNSLRDY 




000181 




BIT 


CHCPYFLG 
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000182 




BPL 


CNSLRDY 




000183 




CMP 


#CHCPYCHR 




000184 




BNE 


CNSLRDY 




000185 




JSR 


SCRNPICK 


; Copy character from screen 


000186 




ASL 


A 




000187 




CMP 


#40 




000188 




ROR 


A 




000189 




EOR 


IBITON7 




000190 


i 








000191 


CNSLRDY 


PHA 




; Save character for new line test 


000192 




LDY 


#0 




000193 




STA 


(BUFFPTR) , Y 


; Store character in buffer 


000194 










000195 




BIT 


ECHO 


;Echo enabled? 


000196 




BPL 


$020 




000197 




BVS 


$010 




000198 




CMP 


#20 


; Check for control character 


000199 




BCC 


$020 




000200 


soio 


JSR 


SCRNECHO 




000201 


S020 


LDA 


#01 




000202 










000203 


BUMPCNT 


PHA 






000204 




CLC 






000205 




ADC 


COUNT 


; Update current read count 


000206 




STA 


COUNT 




000207 




BCC 


$010 




000208 




INC 


COUNT+1 




000209 


S010 


PLA 






000210 




CLC 






000211 




ADC 


BUFFPTR 


; Update buffer pointer 


000212 




STA 


BUFFPTR 




000213 




BCC 


TSTNEWLN 




000214 




INC 


BUFFPTR+1 




000215 




LDA 


BUFFPTR+1 




000216 




CMP 


#0FF 




000217 




BCC 


TSTNEWLN 




000218 




SBC 


#080 


;Wrap buffer at FF page 


000219 




STA 


BUFFPTR+1 




000220 




INC 


1400+BUFFPTR+l 




000221 


i 








000222 


TSTNEWLN 


PLA 




;Test for New Line 


000223 




BIT 


NEWLINE 




000224 




BPL 


$010 




000225 




CMP 


NEWLNCHR 




000226 




BEQ 


CNSLEXIT 




000227 


S010 


JMP 


CNSLLOOP 




000228 


; 








000229 


CNSLEXIT 


ASL 


READING 


; Clear the READING flag 


000230 




LDA 


#KYBDENBL 




000231 




STA 


E_IER 


; Unmask the keyboard 


000232 




LDY 


#0 




000233 




LDA 


COUNT 


; Return the actual byte count 


000234 




STA 


(RTNCNT) , Y 




000235 




INY 






000236 




LDA 


COUNT+1 




000237 




STA 


(RTNCNT) , Y 




000238 




BIT 


KYBDMODE 




000239 




BMI 


$020 




000240 




PLA 






000241 




BMI 


$010 




000242 




LDA 


#ASC_ACK 


; Turn off cursor 


000243 




JSR 


SCRNECHO 




000244 


S010 


JSR 


ZPOUT 




000245 


S020 


RTS 







#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS . READ . TEXT 

245 

11718 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, 



New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . WRIT . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 



Console Write Request 

Parameters : 

BUFFPTR: Pointer to caller's data buffer 
REQCNT: Number of bytes to write 

Zero Page Temporary Storage 

COUNT: Number of bytes written 

Additional zero page data may be used to perform screen 
control functions. 



$010 



$020 



$030 



$040 



$050 
$060 



.EQU 






BIT 


OPENFLG 




BMI 


$010 




JMP 


CNOTOPEN 




JSR 


CURSOR 


; Remove Cursor 


LDA 


#0 




STA 


COUNT 


;Zero COUNT 


STA 


COUNT+1 




LDA 


COUNT 


; Check for end of buffer 


CMP 


REQCNT 




LDA 


COUNT+1 




SBC 


REQCNT+1 




BCS 


$060 


;Go Exit 


BIT 


SUSPFLSH 


; Check suspend and flush flags 


BMI 


$030 


; Suspend 


BVS 


$050 


; Flush 


LDY 


#0 




LDA 


(BUFFPTR) , Y 


; Get next byte 


JSR 


PRINT 


; Print the byte 


INC 


BUFFPTR 




BNE 


$040 


; Bump pointer 


INC 


BUFFPTR+1 




BNE 


$040 




LDA 


#80 




STA 


BUFFPTR+1 


; Process buffer wrap around 


INC 


1400+BUFFPTR+l 




INC 


COUNT 




BNE 


$020 


;Bump bytes read count 


INC 


COUNT+1 




JMP 


$020 




LDA 


#00 




STA 


CTLINDX 


; Clear any pending cntl function 


JSR 


CURSOR 


; Restore cursor 


JMP 


ZPOUT 


; Save Zero Page data and exit 


.PAGE 







Subroutine PRINT 

This routine processes a single byte of output. Characters are 
printed by calling DISPLAY. Screen control functions are processed 
by accumulating any required parameters in CTLBUFF then switching 
to the appropriate screen control routine. 

Parameters : 

A: The byte to process 

Exit : 

A, X, Y: Undefined 



000073 


FRINT 


.EQU 






000074 




LDY 


CTLINDX 


; Get control function index 


000075 




BNE 


$010 




000076 




ORA 


DSPLYCTL 




000077 




CMP 


#ASC_SP 


;Display or control? 


000078 




BCS 


DISPLAY 




000079 




TAX 






000080 




LDA 


QUOTATBL, X 


;Get function quota 


000081 




BEQ 


$020 




000082 




STA 


CTLQUOTA 




000083 




TXA 






000084 


$010 


STA 


CTLBUFF, Y 


; Save function character 


000085 




INY 






000086 




STY 


CTLINDX 


; Update buffer index 


000087 




CPY 


CTLQUOTA 


; See if quota filled 


000088 




BCC 


$020 
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000089 




LDY 


#0 






000090 




STY 


CTLINDX 


Zero buffer index 


000091 




SWITCH 


CTLBUFF, , CTLSWTBL, * 






000092 


S020 RTS 








000093 




.PAGE 








000094 






















000095 












000096 




Subroutine DISPLAY 








000097 












000098 




This routine displays a 


single character. If auto advance is 


000099 




enabled, it calls CF_HT 


to advance the cursor. 






000100 












000101 




Parameters : 








000102 




A: The character to be displayed 






000103 












000104 




Exit : 








000105 




A, X, Y: Undefined 






000106 












000107 






















000108 












000109 


DISPLAY .EQU 


* 






000110 




ORA 


#80 


set 


hi-bit 


000111 




EOR 


SMINV 


set 


normal or inverse 


000112 




PHA 




(for safe keeping) 


000113 




BIT 


HMODE 


80 


column text? 


000114 




BPL 


$010 






000115 




LDA 


TPX 






000116 




LSR 


A 


80 


col: X=TPX/2 


000117 




TAY 




carry bit clear? 


000118 




BCC 


$020 


yes 


: use page 1 


000119 




PLA 








000120 




STA 


(BASE2) ,Y 


80 


col page two 


000121 




BCS 


$030 






000122 


$010 LDY 


TPX 


40 


col: X=TPX 


000123 




LDA 


TCOLOR 






000124 




STA 


(BASE2) , Y 


set 


color byte 


000125 


$020 PLA 








000126 




STA 


(BASE1) , Y 


80 


col page one 


000127 


$030 BIT 


SMAUTOADV 


if 


auto advance, 


000128 




BPL 


$040 






000129 




JMP 


CF_HT 


advance cursor 


000130 


$040 RTS 








000131 




.PAGE 








000132 






















000133 












000134 




Control Function Quota 


and Switch Tables 






000135 












000136 






















000137 


QUOTATBL . EQU 


* 


The 


Control Function Quota Table 


000138 




. BLOCK 


1, 


contains the total number of 


000139 




. BLOCK 


15. , 1 


bytes required by the function, 


000140 




.BLOCK 


1,2 


i 


ncluding the function character 


000141 




. BLOCK 


2, 1 


itself. A zero indicates that 


000142 




. BLOCK 


2,2 


the function is unimplemented. 


000143 




. BLOCK 


1,2 






000144 




. BLOCK 


1, 1 






000145 




. BLOCK 


3,2 






000146 




. BLOCK 


1, 3 






000147 




. BLOCK 


1, 






000148 




. BLOCK 


4,1 






000149 


CTLSWTBL . EQU 


* 






000150 




.WORD 


CF_NUL-1 


00 


no-op 


000151 




.WORD 


CF_SOH-l 


01 


Save Environment & Release Viewport 


000152 




.WORD 


CF_STX-1 


02 


Set Viewport Upper Left 


000153 




.WORD 


CF_ETX-1 


03 


Set Viewport Lower Right 


000154 




.WORD 


CF_EOT-l 


04 


Restore Environment 


000155 




.WORD 


CF_ENQ-1 


05 


Cursor On 


000156 




.WORD 


CF_ACK-1 


06 


Cursor Off 


000157 




.WORD 


CF_BEL-1 


07 


Audible signal 


000158 




.WORD 


CF_BS-1 


08 


Backspace 


000159 




.WORD 


CF_HT-1 


09 


Forward Space 


000160 




.WORD 


CF_LF-1 


OA 


Line Feed 


000161 




.WORD 


CF_VT-1 


0B 


Reverse Line Feed 


000162 




.WORD 


CF_FF-1 


0C 


Home Cursor 


000163 




.WORD 


CF_CR-1 


0D 


Carriage Return 


000164 




.WORD 


CF_SO-l 


0E 


Screen Off 


000165 




.WORD 


CF_SI-1 


OF 


Screen On 


000166 




.WORD 


CF_DLE-1 


10 


Set Text Mode 


000167 




.WORD 


CF_DC1-1 


11 


Normal Video 


000168 




.WORD 


CF_DC2-1 


12 


Inverse Video 


000169 




.WORD 


CF_DC3-1 


13 


Foreground Color 


000170 




.WORD 


CF_DC4-1 


14 


Background Color 


000171 




.WORD 


CF_NAK-1 


15 


Set Text Options 


000172 




.WORD 


CF_SYN-1 


16 


Sync on VBL 


000173 




.WORD 


CF_ETB-1 


17 


Horizontal Shift 


000174 




.WORD 


CF_CAN-1 


18 


Go to X 


000175 




.WORD 


CF_EM-1 


19 


Go to Y 


000176 




.WORD 


CF_SUB-1 


1A 


Go to X,Y 


000177 




.WORD 


CF_ESC-1 


IB 


No-op 


000178 




.WORD 


CF_FS-1 


1C 


Clear Screen 


000179 




.WORD 


CF_GS-1 


ID 


Clear to End of Screen 


000180 




.WORD 


CF_RS-1 


IE 


Clear Line 


000181 




.WORD 


CF_US-1 


IF 


Clear to End of Line 
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#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS. WRIT. TEXT 

182 

10016 

Assembly Language Reformatter 1.0.2 (07 January 1998) 

David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . FCTN . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 



. PAGE 

Screen Control Functions 

These routines perform all screen control functions. 

Parameters : 

All parameters are accumulated in CTLBUFF 

Exit : 

A, X, Y: Undefined 



CF_NUL 
CF_ESC 



CF_SOH 

soio 



CF_EOT 
S010 



CF_EKQ 



. EQU 
.EQU 
RTS 

.EQU 

LDY 

LDA 

STA 

DEY 

BNE 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

STA 

STA 

LDA 

STA 

STA 

JMP 

.EQU 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

STA 

STA 

JMP 

.EQU 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

JMP 

.EQU 

LDY 

LDA 

STA 

DEY 

BNE 

JMP 

.EQU 

LDA 

ORA 

STA 

LDA 

STA 

RTS 

.EQU 

LDA 

AND 

STA 

LDA 

STA 

RTS 

.EQU 



ISCRSTLEN 
SCRSTTBL-1, Y 
SCRSTSAV- 1 , Y 

$010 

TPX 

VPL 

TPX 

TPY 

VPT 

TPY 

#0 

VPL 

VPT 

#0FF 

VPR 

VPB 

VERIFY 



VPL 

TPX 

VPL 

VPT 

TPY 

VPT 

#0 

TPX 

TPY 

VERIFY 



TPX 
VPL 
VPR 
TPY 
VPT 
VPB 
VERIFY 



#SCRSTLEN 
SCRSTSAV-1, Y 
SCRSTTBL-1, Y 



$010 
VERIFY 



SMCDE 

#BITON4 

SMODE 

#TRUE 

SMCURSOR 



SMODE 

#BITOFF4 

SMODE 

#FALSE 

SMCURSOR 



; NO-OP 

; Save & Release Viewport 



; retain X posn 



; retain y posn 

; zero left margin 
; zero top margin 

;Let VERIFY set the right edge 
; and bottom margin 



;SET VIEWPORT UPPER LEFT 



;at cursor posn 
; set left margin 



; set top margin 

; reset cursor X 

; and cursor Y 
; and verify 

;SET VIEWPORT LOWER RIGHT 



set left margin 
& bottom margin 
and verify 
RESTORE VIEWPORT 



; ENABLE CURSOR 



; DISABLE CURSOR 



; Sound Bell 
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000089 




BIT 


BELL 




000090 




RTS 






000091 


i 








000092 


CF_BS 


.EQU 




; BACKSPACE 


000093 




DEC 


TPX 




000094 




BPL 


$020 




000095 




BIT 


SMAUTOCR 


;BS at left: 


000096 




BPL 


$010 




000097 




LDA 


VPHMAX 


;Wrap to right 


000098 




STA 


TPX 


; edge of viewport 


000099 




JMP 


CF_VT 




000100 


soio 


INC 


TPX 




000101 


$020 


RTS 






000102 


; 








000103 


CF_HT 


. EQU 


* 


; ADVANCE 


000104 




LDA 


TPX 




000105 




CMP 


VPHMAX 




000106 




BCS 


$010 


;at edge? 


000107 




INC 


TPX 


; no : advance 


000108 




RTS 






000109 


$010 


BIT 


SMAUTOCR 


;auto CR on? 


000110 




BPL 


CF_EXIT 




000111 




LDA 


#0 


;yes: wrap to 


000112 




STA 


TPX 


;left margin 


000113 




JMP 


CF_LF 


;& line feed 


000114 


i 








000115 


CF_LF 


. EQU 


* 


; LINE FEED 


000116 




LDA 


TPY 




000117 




CMP 


VPVMAX 




000118 




BCS 


$010 


;at edge? 


000119 




INC 


TPY 


; no : move down 


000120 




JMP 


TBASCAL 


;calc base address 


000121 


$010 


BIT 


SMSCROLL 


;auto scroll? 


000122 




BPL 


CF_EXIT 




000123 




LDA 


#00 




000124 




JMP 


SCROLL 


;yes: go to it 


000125 


i 








000126 


CF_VT 


.EQU 


* 


/REVERSE LINE FEED 


000127 




LDA 


TPY 




000128 




BEQ 


$010 


;at top? 


000129 




DEC 


TPY 


; no : do it 


000130 




JMP 


TBASCAL 


;calc base address 


000131 


$010 


BIT 


SMSCROLL 


;auto scroll? 


000132 




BPL 


CF_EXIT 




000133 




LDA 


#80 




000134 




JMP 


SCROLL 




000135 


; 








000136 


CF_FF 


.EQU 


* 


; FORM FEED 


000137 




LDA 


#0 




000138 




STA 


TPX 


; reset TPX 


000139 




STA 


TPY 


; and TPY 


000140 




JMP 


TBASCAL 


;calc base address 


000141 


; 








000142 


CF_CR 


.EQU 


* 


; CARRIAGE RETURN 


000143 




LDA 


#0 




000144 




STA 


TPX 


; reset TPX 


000145 




BIT 


SMAUTOLF 


;auto LF set? 


000146 




BPL 


CF_EXIT 




000147 




JMP 


CF_LF 


;yes: go to it 


000148 


; 








000149 


CF_SO 


.EQU 


* 


; SCREEN OFF 


000150 




LDA 


#FALSE 




000151 




STA 


SCRNMODE 




000152 




JMP 


VERIFY 




000153 


; 








000154 


CF_SI 


.EQU 


* 


; SCREEN ON 


000155 




LDA 


♦ TRUE 




000156 




STA 


SCRNMODE 




000157 




JMP 


VERIFY 




000158 


; 








000159 


CF_DLE 


.EQU 


* 


; SET HARDWARE MODE 


000160 




LDA 


CTLBUFF+1 




000161 




STA 


HMODE 




000162 




JMP 


VERIFY 




000163 


; 








000164 


CF_DC1 


.EQU 


* 


; NORMAL VIDEO 


000165 




LDA 


SMODE 




000166 




AND 


#BITOFF5 


; reset INVERSE bit 


000167 




STA 


SMODE 




000168 




LDA 


#FALSE 




000169 




STA 


SMINV 




000170 


CF_EXII 


RTS 






000171 










000172 


CF_DC2 


.EQU 




; INVERSE VIDEO 


000173 




LDA 


SMODE 




000174 




ORA 


#BITON5 


;set INVERSE bit 


000175 




STA 


SMODE 




000176 




LDA 


#TRUE 




000177 




STA 


SMINV 




000178 




RTS 






000179 










000180 


CF_DC3 


.EQU 




FOREGROUND COLOR 


000181 




LDA 


CTLBUFF+1 





ft Apple /// Console Driver 1.31 Source Code Listing 




000182 




STA 


TCF 




000183 




JMP 


VERIFY 


; set TCOLOR 


000184 


i 








000185 


CF_DC4 


. EQU 


* 


; BACKGROUND COLOR 


000186 




LDA 


CTLBUFF+1 




000187 




STA 


TCB 




000188 




JMP 


VERIFY 


; set TCOLOR 


000189 


; 








000190 


CF_NAK 


. EQU 


* 


; SET SOFTWARE MODE 


000191 




LDA 


CTLBUFF+1 




000192 




AND 


#0F 




000193 




STA 


CTLBUFF+1 




000194 




LDA 


SMODE 


;Save bits 7-4 


000195 




AND 


#0F0 




000196 




ORA 


CTLBUFF+1 




000197 




STA 


SMODE 




000198 




JMP 


VERIFY 




000199 










000200 


CF_SYN 


.EQU 


* 


/SYNCHRONIZE WITH VBL 


000201 




LDA 


#SYNCSSIZ 




000202 




LDX 


SYNCSADR 




000203 




LDY 


SYNCSADR+1 




000204 




JSR 


ALLOCSIR 


; Allocate CB2 for VBL 


000205 




BCS 


CF_EXIT 




000206 




JSR 


CURSOR 


; Restore cursor while waiting 


000207 




PHP 






000208 




SEI 






000209 




LDA 


E_PCR 




000210 




AND 


#1F 




000211 




ORA 


#60 


; Set up CB2 to monitor 


000212 




STA 


E_PCR 


; VBL positive edge 


000213 




LDA 


#08 




000214 




STA 


E_IER 




000215 




STA 


E_IFR 




000216 




PLP 






000217 


soio 


BIT 


E_IFR 


;Wait for VBL edge 


000218 




BEQ 


$010 




000219 




JSR 


CURSOR 


; Remove cursor 


000220 




LDA 


#SYNCSSIZ 




000221 




LDX 


SYNCSADR 




000222 




LDY 


SYNCSADR+1 




000223 




JMP 


DEALCSIR 


; Release CB2 resource 


000224 










000225 


CF_ETB 


.EQU 


* 


; HORIZONTAL SCROLL 


000226 




LDA 


CTLBUFF+1 




000227 


SOIO 


JMP 


SHIFT 




000228 










000229 


CF_CAN 


.EQU 




;Go To X 


000230 




LDA 


CTLBUFF+1 




000231 




CMP 


VPHMAX 


;out of range? 


000232 




BCC 


$010 




000233 




LDA 


VPHMAX 


; Set to right margin 


000234 


soio 


STA 


TPX 




000235 




RTS 






000236 


; 








000237 


CF_EM 


.EQU 


* 


;Go To Y 


000238 




LDA 


CTLBUFF+1 




000239 




CMP 


VPVMAX 


;out of range? 


000240 




BCC 


$010 




000241 




LDA 


VPVMAX 


; Set to top 


000242 


S010 


STA 


TPY 




000243 




JMP 


TBASCAL 


; get base address 


000244 


; 








000245 


CF_SUB 


.EQU 


* 


;Go To X, Y 


000246 




JSR 


CF_CAN 




000247 




LDA 


CTLBUFF+2 




000248 




STA 


CTLBUFF+1 




000249 




JMP 


CF_EM 




000250 


t 








000251 


CF_FS 


.EQU 


* 


; CLEAR SCREEN 


000252 




JSR 


CF_FF 




000253 




JMP 


CLREOS 




000254 


; 








000255 


CF_GS 


.EQU 




; CLEAR TO EOS 


000256 




JMP 


CLREOS 




000257 










000258 


CF_RS 


.EQU 




; CLEAR LINE 


000259 




LDA 


#0 




000260 




STA 


TPX 




000261 




JMP 


CLREOL 




000262 










000263 


CF_US 


.EQU 




; CLEAR TO EOL 


000264 




JMP 


CLREOL 




000265 











#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS . FCTN . TEXT 

265 
12878 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, 



New Mexico USA 



#################################################################################################### 



ft Apple /// Console Driver 1.31 Source Code Listing --- 23 / 44 




#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . STAT . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 



. PAGE 

Console Status Request 
Parameters : 



SCCODE: 
SCLIST: 



Status / Control code 

Pointer to caller's status / control list 



Before switching to the appropriate request handling code, 
Y is set to zero. 



$010 



CSTAT00 
CSTAT01 



$010 
$020 



CSTAT02 



C STAT 03 



CSTAT04 



CSTAT06 
$010 



-EQU 

BIT 

BMI 

JMP 

SWITCH 
BCS 
LDY 
RTS 

LDA 
JSR 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

RTS 

.EQU 

LDA 

CMP 

BCS 

LDA 

JSR 

LDA 

STA 

TAY 

LDA 

STA 

DEY 

BNE 

RTS 

. EQU 

LDA 

STA 

INY 

LDA 

STA 

RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 
LDA 
STA 
RTS 

LDY 
LDA 



OPENFLG 

$010 

CNOTOPEN 

SCCODE, 18 . , CSTATSW, * 

CBADCTL 

#0 



#XCTLCODE 
SYSERR 



;Is the Console open? 



CSTAT00-1 
CSTAT01-1 
CSTAT02-1 
CSTAT03-1 
CSTAT04-1 
CSTAT05-1 
CSTAT06-1 
CBADCTL-1 
CSTAT08-1 
CSTAT09-1 
CSTAT10-1 
CSTAT11-1 
CSTAT12-1 
CSTAT13-1 
CSTAT14-1 
CSTAT15-1 
CSTAT16-1 
CSTAT17-1 
CSTAT18-1 



(SCLIST) , Y 
#CONSTLEN 

$010 

#XCTLPARM 
SYSERR 
#CONSTLEN 
(SCLIST) , Y 

CONSTTBL-l,Y 
(SCLIST) , Y 



$020 



NEWLINE 
(SCLIST) , Y 



NEWLNCHR 
(SCLIST) , Y 



KYBDMODE 
(SCLIST) , Y 



BUFSIZ 
(SCLIST) , Y 



KEYCNT 
(SCLIST) , Y 



#5 

ATTNEVNT, Y 



; Invalid control code 



;0 — NOP 

; 1 — Console Status Table 



; 2 — New Line 



; 3 — Console / Keyboard mode 



;4 — Buffer Size 



; 5 — Current Key Count 



; 6 — Attention Event 
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000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 



CSTAT08 
S010 



CSTAT10 



CSTAT11 



CSTAT12 



CSTAT13 



CSTAT14 



CSTAT15 



CSTAT18 



$010 



STA 
DEY 
BPL 
RTS 

LDY 
LDA 
STA 
DEY 
BPL 
RTS 

.EQU 

JSR 

EOR 

EOR 

LDY 

STA 

RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 
LDA 
STA 
RTS 

.EQU 

LDA 

STA 

INY 

LDA 

STA 

RTS 

.EQU 

USR 

ASL 

CMP 

ROR 

EOR 

LDY 

STA 

RTS 

.EQU 

LDA 

STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

LDA 

BIT 

BMI 

UMP 

STA 

DEY 

STA 

RTS 



(SCLIST) , Y 
$010 



#4 

ANYKYEVNT, Y 
(SCLIST) , Y 



$010 



SCRNPICK 
#BITON7 
SMCURSOR 
#0 

(SCLIST) , Y 



NOWAIT 
(SCLIST) , Y 



ECHO 

(SCLIST) , Y 



CHCPYFLG 
(SCLIST) , Y 



CHDELFLG 
(SCLIST) , Y 



LNDELFLG 
(SCLIST) , Y 



ESCAPE 
(SCLIST) , Y 



TPX 

(SCLIST) , Y 



TPY 

(SCLIST) , Y 



SCRNPICK 
A 

#40 
A 

#BITON7 
#0 

(SCLIST) , 



HMODE 
(SCLIST) , Y 

VPHMAX 
(SCLIST) , Y 

VPVMAX 
(SCLIST) , Y 
#00 

DSPLYCTL 
$010 

SCRNDUMP 
(SCLIST) , Y 

(SCLIST) , Y 



; 8 — Any Key Event 



;09 — Read Screen with norm/inv 



; 10 — No Wait Input 



;11 — Screen Echo 



; 12 — Character Copy 



;13 — Character Delete 



; 14 — Line Delete 



;15 — Escape Functions 



;16 — Cursor Position 



;17 — Pick Character 



;18 — Screen Dump 



;If control characters are being 
; displayed, dump a null viewport 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS . STAT . TEXT 

174 

7340 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, 



New Mexico USA 
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; #################################################################################################### 



ft Apple /// Console Driver 1.31 Source Code Listing --- 26 / 44 




#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . CNTL . TEXT 

#################################################################################################### 



000001 






.PAGE 








000002 


























000003 














000004 




Console Control Request 








000005 














000006 




Parameters 










000007 




SCCODE : 


Status / Control code 






000008 




SCLIST: 


Pointer to 


caller's status 


/ control list 


000009 














000010 




Before 


switching to 


the appropriate 


request 


handler, Y is 


000011 




set to 


zero and A is 


loaded with the 


first 


byte of the list . 


000012 














000013 


























000014 














000015 


CNSLCNTL 


. EQU 








000016 






BIT 


OPENFLG 




; Console open? 


000017 






BPL 


$010 






000018 






SWITCH 


SCCODE, 18 ., CCNTLSW, * 




000019 






BCS 


$020 






000020 






LDY 


#00 






000021 






LDA 


(SCLIST) , Y 






000022 






RTS 








000023 














000024 


S010 


JMP 


CNOTOPEN 






000025 














000026 


$020 


JMP 


CBADCTL 






000027 














000028 


CCNTLSW 


.WORD 


CCNTL00-1 






000029 






.WORD 


CCNTL01-1 






000030 






.WORD 


CCNTL02-1 






000031 






.WORD 


CCNTL03-1 






000032 






.WORD 


CCNTL04-1 






000033 






.WORD 


CCNTL05-1 






000034 






.WORD 


CCNTL06-1 






000035 






.WORD 


CBADCTL-1 






000036 






.WORD 


CCNTL08-1 






000037 






.WORD 


CBADCTL-1 






000038 






.WORD 


CCNTL10-1 






000039 






.WORD 


CCNTL11-1 






000040 






.WORD 


CCNTL12-1 






000041 






.WORD 


CCNTL13-1 






000042 






.WORD 


CCNTL14-1 






000043 






.WORD 


CCNTL15-1 






000044 






.WORD 


LOADSET-1 






000045 






.WORD 


LOAD8-1 






000046 






.WORD 


CCNTL18-1 






000047 














000048 


CCNTL00 


LDA 


E_IER 




;0 — Reset 


000049 






PHA 






; Save current interrupt state 


000050 






LDA 


#KYBDDSBL 




; and mask off interrupts 


000051 






STA 


E_IER 






000052 






LDA 


#BUFMAX 






000053 






STA 


BUFSIZ 




; Set buffer size to maximum 


000054 






LDA 


#00 






000055 






STA 


KEYCNT 




; Flush buffer 


000056 






STA 


BUFHEAD 






000057 






STA 


BUFTAIL 






000058 






STA 


READING 




;No read in progress 


000059 






STA 


ANYKYEVNT 




; Disable any key event 


000060 






STA 


ATTNEVNT 




;Disable attention event 


000061 






STA 


CTLINDX 




;Abort control function in progress 


000062 






STA 


DSPLYCTL 




; Clear display control char, flag 


000063 






STA 


SUSPFLSH 




; Clear suspend & flush output flags 


000064 






JSR 


CURSOR 




; Remove cursor 


000065 






LDX 


#DFLTLEN 






000066 


$010 


LDA 


DFLTVAL- 1 , X 




;Copy configuration block 


000067 






STA 


DFLTTBL-1, X 






000068 






DEX 








000069 






BNE 


$010 






000070 






JSR 


CF_SOH 




; Save screen state & verify 


000071 






JSR 


CURSOR 




; Restore the cursor 


000072 






JSR 


ZPOUT 




; Save screen zero page 


000073 






PLA 








000074 






AND 


#KYBDENBL 




; Restore previous interrupt state 


000075 






ORA 


#BITON7 






000076 






STA 


E_IER 






000077 






RTS 








000078 














000079 


CCNTL01 


. EQJ 


* 




;1 — Console Status Table 


000080 






CMP 


#CONSTLEN 






000081 






BEQ 


$010 






000082 






LDA 


#XCTLPARM 






000083 






JSR 


SYSERR 






000084 


$010 


JSR 


CURSOR 






000085 






LDY 


#CONSTLEN 






000086 


$020 


LDA 


(SCLIST) , Y 






000087 






DEY 








000088 






STA 


CONSTTBL, Y 
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000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
00010 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 



CCNTL02 



8 CCNTL04 



$010 



CCNTL06 
$010 



CCNTL08 
$010 



CCNTL15 



BNE 
JSR 
JSR 
JSR 
RTS 

.EQU 
AND 
STA 
INY 
LDA 
STA 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 

CMP 

BCC 

LDA 

JSR 

LDX 

SIX 

STY 

STY 

STY 

STA 

LDX 

STX 

RTS 

LDA 
PHA 
LDA 
STA 
STY 
STY 
STY 
PLA 
AND 
ORA 
STA 
RTS 

PHP 
SEI 
LDY 
LDA 
STA 
DEY 
BPL 
PLP 
RTS 

PHP 
SEI 
LDY 
LDA 
STA 
DEY 
BPL 
PLP 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 
AND 
STA 
RTS 

.EQU 



$020 
VERIFY 
CURSOR 
ZPOUT 



#BITON7 
NEWLINE 



(SCLIST) , Y 
NEWLNCHR 



JBITON7 
KYBDMODE 



#BUFMAX+1 
$010 

tXCTLPARM 

SYSERR 

#KYBDDSBL 

E_IER 

KEYCNT 

BUFHEAD 

BUFTAIL 

BUFSIZ 

IKYBDENBL 

E_IER 



E_IER 

#KYBDDSBL 

E_IER 

KEYCNT 

BUFHEAD 

BUFTAIL 

#KYBDENBL 
#BITON7 
E IER 



#5 

(SCLIST) , Y 
ATTNEVNT, Y 



$010 



#4 

(SCLIST) , Y 
ANYKYEVNT, Y 



$010 



#BITON7 
NOWAIT 



#BITON7+BITON6 
ECHO 



#BITON7 
CHCPYFLG 



#BITON7+BITON6 
CHDELFLG 



#BITON7+BITON6 
LNDELFLG 



; 2 — New Line 



; 3 — Console / Keyboard mode 



;4 — Buffer Size 



;5 — Flush Buffer 



; 6 — Attention Event 



; 8 — Any Key Event 



; 10 — No Wait Input 



;11 — Screen Echo 



; 12 — Character Copy 



;13 — Character Delete 



;14 — Line Delete 



;15 — Escape Functions 
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000182 




AND 


IBITON7 


000183 




STA 


ESCAPE 


000184 




RTS 




000185 


i 






000186 


CCNTL18 


.EQU 


* 


000187 




BIT 


DSPLYCTL 


000188 




BMI 


$020 


000189 




INY 




000190 




EOR 


HMODE 


000191 




BMI 


$010 


000192 




LDA 


(SCLIST) , Y 


000193 




CMP 


VPHMAX 


000194 




BNE 


$010 


000195 




INY 




000196 




LDA 


(SCLIST) , Y 


000197 




CMP 


VPVMAX 


000198 




BNE 


$030 


000199 




LDA 


#80 


000200 




JMP 


SCRNDUMP 


000201 








000202 


soio 


LDA 


(SCLIST) , Y 


000203 




INY 




000204 




ORA 


(SCLIST) , Y 


000205 




BNE 


$030 


000206 


$020 


RTS 




000207 








000208 


$030 


LDA 


#XCTLPARM 


000209 




JSR 


SYSERR 


000210 









; 18 



Restore contents of viewport 



#################################################################################################### 

# END OF FILE: CONS . CNTL . TEXT 

# LINES : 210 

# CHARACTERS : 9290 

# Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

# Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 
#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . DNLD . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 



Subroutine LOADCHR 

This subroutine is called to load an ASCII code and a character 
image into one of the character download cells in the text pages. 

LOADCHR requires four bytes of zero page storage for pointers. In 
order to make it callable from either a device handler or an 
interrupt processor, all zero page references are indexed by X. 
On entry, the X register must contain the zero page offset to the 
character image pointer. The two bytes following the image 
pointer are used to address the download locations in the text 
page. 

Input Parameters: 

DNLDCEL — character download cell number: [0,7] 

DNLDCHR — ASCII character code: [0,7F] 

X reg — zero page offset to pointers 

(0,X) image pointer set by caller 

(2,X) download cell pointer set by LOADCHR 

On exit, DNLDCEL, DNLDCHR, and X will be unchanged. The image 
pointer will have been incremented by eight. A and Y are destroyed. 



DIMGPTR 
DCELPTR 



LOADCHR 

soio 



$020 



.EQU 


00 


Zero page pointer to image 


.EQU 


02 


Zero page pointer to cell 


.EQU 


* 




LDY 


#00 


Use Y for row counter 


LDA 


DNLDCEL 


Set up cell pointer 


AND 


#03 


for ASCII code 


ORA 


DCPTRL, Y 




STA 


DCELPTR, X 




LDA 


DNLDCEL 




LSR 


A 




LSR 


A 




CPY 


#04 




ROL 


A 




ORA 


#08 




STA 


DCELPTR+1,X 




LDA 


DNLDCHR 


Store ASCII code into 


STA 


(DCELPTR, X) 


download cell 


LDA 


DCELPTR+1,X 


Fix cell pointer 


EOR 


#0C 


for character image 


STA 


DCELPTR+1,X 




LDA 


(DIMGPTR, X) 


Store character image 


STA 


(DCELPTR, X) 


into download cell 


INC 


DIMGPTR, X 


Increment the image pointer 


BNE 


$020 




INC 


DIMGPTR+1,X 




INY 




Increment the row number 


CPY 


#08 




BCC 


$010 


Not done yet 


RTS 






.EQU 




Table of download cell addresses 


.BYTE 


078, 07C, 0F8, 0FC 




.BYTE 


078, 07C, 0F8, 0FC 




.PAGE 







Subroutine DNLDINT 

This subroutine processes the VBL interrupt that signals the 
completion of a character download cycle. If the REQUEST bit of 
DNLDFLG is set, another block of eight characters will be 
downloaded; otherwise, the CB1 and CB2 resources will be 
released and the ACTIVE bit will be cleared. DNLDINT assumes 
that the X register points to a four byte area on the zero page 
that can be used for LOADCHR. 



.EQU 

BIT 

LDA 

STA 

BIT 

BVC 

CLI 

LDA 

STA 

LDA 

STA 



DNLDDSBL 
#VBLDSBL 
E_IER 
DNLDFLG 

$030 

#07 

DNLDCEL 
DNLDIMG 
DIMGPTR, X 



; Disable download 

;Mask VBL interrupts 
;Test REQUEST bit 

; Enable interrupts 

; Start with cell 7 

;Set up IMAGE pointer 



ft Apple /// 



Console Driver 1.31 Source Code Listing 



30 / 44 




000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 



$010 



$020 



$030 



LDA 


DNLDIMG+1 




STA 


DIMGPTR+1, X 




JSR 


LOADCHR 


; Load one character image 


INC 


DNLDCHR 


;Bump character code 


BPL 


$020 




ASL 


DNLDFLG 


; Clear REQUEST bit 


DEC 


DNLDCEL 


; Bump cell number 


BPL 


$010 


;More to do 


LDA 


DIMGPTR, X 




STA 


DNLDIMG 


; Save IMAGE pointer 


LDA 


DIMGPTR+1, X 




STA 


DNLDIMG+1 




JMP 


DNLD_GO 


; Enable downloading 


ASL 


DNLDFLG 


; Clear ACTIVE bit 


LDA 


#DNLDSSIZ 




LDX 


DNLDSADR 




LDY 


DNLDSADR+1 




JSR 


DEALCSIR 


; Deallocate SIRs 


RTS 
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Subroutine GETSIRS 

This subroutine allocates SIRs 5 & 6 and initializes them to 
monitor VBL for character downloading. If the SIRs can not be 
allocated, it sets an error code and returns directly to the 
dispatcher. 



$010 



.EQU 


* 




BIT 


DNLDFLG 


Wait for any previous 


BMI 


GETSIRS 


request to finish 


LDA 


#DNLDSSIZ 




LDX 


DNLDSADR 




LDY 


DNLDSADR+1 




JSR 


ALLOCSIR 




BCS 


$010 




PHP 






SEI 






LDA 


E PCR 


Set CB1 to monitor VBL 


AND 


#0F 


negative edge and 


ORA 


#60 


CB2 to monitor 


STA 


E_PCR 


positive edge 


LDA 


#VBLDSBL 




STA 


E_IER 




PLP 






RTS 






PLA 




pull caller's 


PLA 




address, and 


LDA 


fXNORESRC 


return to dispatcher 


JSR 


SYSERR 


with an error 
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Subroutine LOADSET 

This subroutine is called to initiate downloading of the entire 
text screen character set. LOADSET calls GETSIRS to set up the 
6522 to monitor VBL and interrupt on the negative edge. It then 
copys the character set to the screen's local data area, sets the 
request bit, and enables the VBL interrupt. The VBL interrupt 
processor, DNLDINT, will complete the actual downloading . 

Parameters : 

SCLIST: Pointer to caller's 1024 byte character set 

Zero Page Temporary Storage: 

WORKl : Pointer to system' s character set 



.EQU 


* 


JSR 


GETSIRS 


LDA 


#TEXTCSA%100 


STA 


WORKl 


STA 


DNLDIMG 


LDA 


#TEXTCSA/100 


STA 


WORKl +1 


STA 


DNLDIMG+1 


LDA 


#ASC_NUL 


STA 


DNLDCHR 


LDX 


#4 


LDY 


#0 


LDA 


SCLIST+1 


CMP 


#0FB 


BCC 


$010 


SBC 


#080 


STA 


SCLIST+1 


INC 


1400+SCLIST+l 



; Set X to move 4 pages 
; Set Y to move full page 



;Adjust address to avoid 
; bank wrap around 
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000182 S010 LDA 


(SCLIST) , Y 








;Copy character set to 


000183 


STA 


(WORK1 ) , Y 








; text char set buffer 


000184 


INY 












000185 


BNE 


$010 










000186 


INC 


SCLIST+1 










000187 


INC 


WORK1+1 










000188 


DEX 












000189 


BNE 


$010 










000190 


LDA 


#0C0 








; Set download active 


000191 


STA 


DNLDFLG 








; and request flags 


000192 


LDA 


#VBLENBL 










000193 


STA 


E_IER 








; Enable interrupts in VBL nec 


000194 


RTS 












000195 


.PAGE 












000196 


























000197 














000198 


Subroutine LOAD 8 












000199 














000200 


This subroutine is called to download up 


to 


eight text character 


000201 


images. LOAD 8 calls GETSIRS to set up the 


6522 to 


monitor VBL 


000202 


and interrupt on the negative edge. 


It 


then loads 


the character 


000203 


images into the screen 1 


s download cells 


and 


enables downloading 


000204 


and the VBL interrupt . 


The download 


operation is 


completed by 


000205 


the interrupt processor 


DNLDINT . 










000206 














000207 


Parameters : 












000208 


SCLIST: Pointer to caller's character 


sets 




000209 














000210 


Zero Page Temporary Data: 










000211 


COUNT: Number of 


characters to 


download 




000212 


WORK1: Pointer to 


character image 


for 


LOADCHR 


000213 


WORK2 : Work area 


for LOADCHR 










000214 














000215 


























000216 














000217 LOAD 8 -EQU 


* 










000218 


CMP 


#01 








; Check download count 


000219 


BCS 


$010 










000220 


RTS 












000221 














000222 S010 CMP 


#09 










000223 


BCC 


$020 










000224 


LDA 


#XCTLPARM 








; Too many 


000225 


JSR 


SYSERR 










000226 














000227 $020 STA 


COUNT 










000228 


JSR 


GETSIRS 










000229 














000230 


INC 


SCLIST 








;Bump list address 


000231 


BNE 


$030 








; to first character 


000232 


INC 


SCLIST+1 










000233 














000234 $030 LDA 


#08 










000235 


STA 


DNLDCEL 










000236 














000237 $040 LDY 


#00 










000238 


LDA 


(SCLIST) , Y 








;Get character code 


000239 


STA 


DNLDCHR 










000240 


INC 


SCLIST 








;Bump list address 


000241 


BNE 


$050 








; to character image 


000242 


INC 


SCLIST+1 










000243 














000244 $050 LDA 


#03 










000245 


STA 


WORK1+1 










000246 


LDA 


DNLDCHR 










000247 


ASL 


A 










000248 


ASL 


A 










000249 


ROL 


WORK1+1 








; Set up address of character 


000250 


ASL 


A 








; image in COO to FFF space 


000251 


ROL 


WORK1+1 










000252 


STA 


WORK1 










000253 














000254 


LDY 


#07 










000255 $060 LDA 


(SCLIST) , Y 








;Copy character image 


000256 


STA 


(WORK1) , Y 








; to COO image space 


000257 


DEY 












000258 


BPL 


$060 










000259 














000260 


DEC 


DNLDCEL 










000261 


LDX 


#WORKl 










000262 


JSR 


LOADCHR 








; Download this character 


000263 














000264 


LDA 


DNLDCEL 










000265 


CMP 


COUNT 










000266 


BCS 


$050 








;Do same character again 


000267 


LDA 


#08 










000268 


ADC 


SCLIST 








;Bump list address 


000269 


STA 


SCLIST 








; to next character 


000270 


BCC 


$070 










000271 


INC 


SCLIST+1 










000272 $070 DEC 


COUNT 










000273 


BNE 


$040 











000274 ; 
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000275 




LDA 


#080 


; Set download active 


000276 




STA 


DNLDFLQ 




000277 


DNLD_GO 


BIT 


DNLDENBL 




000278 




LDA 


#VBLCLR 




000279 




STA 


E_IFR 


; Clear both VBL flags 


000280 


$080 


BIT 


E I ORB 


; Check composite blanking 


000281 




BVC 


$090 




000282 




BIT 


E IFR 


; Check VBL flags 


000283 




BEQ 


$080 




000284 


$090 


STA 


E_IFR 


; Clear VBL flags 


000285 




LDA 


fVBLENBL 


; Enable VBL interrupt 


000286 




STA 


E_IER 




000287 




RTS 







000288 

; #################################################################################################### 

; # END OF FILE: CONS . DNLD . TEXT 

; # LINES : 288 

; # CHARACTERS : 14806 

; # Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

; # Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 

; #################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . MISC . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 



000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 



Console Open Request 



$010 



$020 



-EQU 


* 




BIT 


OPENFLG 


; Console open? 


BPL 


$010 


; No 


LDA 


IXNOTAVIL 




JSR 


SYSERR 




LDA 


#KYBDSSIZ 


; Allocate the keyboard interrupt 


LDX 


KYBDSADR 




LDY 


KYBDSADR+1 




JSR 


ALLOCSIR 




BCS 


$020 




LDA 


#TRUE 




STA 


OPENFLG 


; Set console open 


JSR 


CCNTL00 


; Reset console parameters 


PHP 






SEI 






LDA 


E PCR 




AND 


#0F1 




ORA 


#002 


; Set up keyboard interrupt 


STA 


E_PCR 




PLP 






LDA 


#KYBDCLR 




STA 


E_IFR 


; Clear keyboard flag 


BIT 


KYBDSTRB 


; Clear the keyboard strobe 


LDA 


#KYBDENBL 




STA 


E_IER 


; Unmask keyboard interrupts 


CLC 






RTS 






LDA 


#XNORESRC 


; Couldn't get keyboard resource 


JSR 


SYSERR 
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Console Close Request 



000046 


CNSLCLOS 


.EQU 






000047 




ASL 


OPENFLG 


; Console open? 


000048 




BCS 


$010 


; Yes 


000049 




JMP 


CNOTOPEN 




000050 










000051 


$010 


BIT 


DNLDFLG 


;Wait for pending download 


000052 




BMI 


$010 




000053 




LDA 


#KYBDDSBL 




000054 




STA 


E_IER 


;Mask keyboard interrupts 


000055 




BIT 


KYBDSTRB 


; Clear the keyboard strobe 


000056 




LDA 


#KYBDSSIZ 




000057 




LDX 


KYBDSADR 




000058 




LDY 


KYBDSADR+1 




000059 




JSR 


DEALCSIR 


; Deallocate the keyboard interrupt 


000060 




RTS 






000061 
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Console Initialization Request 



.EQU 


* 


LDA 


#FALSE 


STA 


OPENFLG 


LDA 


B_REG 


STA 


KYBDBANK 


STA 


DNLDBANK 


LDA 


#TEXTCSA%100 


STA 


SCLIST 


LDA 


#TEXTCSA/100 


STA 


SCLIST+1 


LDA 


#00 


STA 


1400+SCLIST+l 


JSR 


LOADSET 


CLC 




RTS 





Set bank register for 
keyboard and download 
interrupt handlers 

Set up character download call 



#################################################################################################### 

# END OF FILE: CONS .MISC . TEXT 

# LINES : 83 

# CHARACTERS : 4017 
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# Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

# Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 
#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . UTL1 . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 



Subroutine VERIFY 

This subroutine checks the screen's hardware mode, software mode, 
and viewport parameters for self consistency. It also sets the 
screen switches and the following internal variables: 

HMODE , SMINV, SMCURSOR, SMSCROLL, SMAUTOCR, SMAUTOLF, 

SMAUTOADV, VPHMAX, VPVMAX, and TCOLOR 

Parameters : none 
Exit : 

A, X, Y : Undefined 



000019 


VERIFY 


-EQU 


* 




000020 




LDA 


HMODE 


; Validate HMODE 


000021 




AND 


#03 


; and set 80 column 


000022 




ASL 


A 


; flag in bit 7 


000023 




CMP 


#04 




000024 




BCC 


$010 




000025 




LDA 


#04 




000026 


soio 


ROR 


A 




000027 




STA 


HMODE 




000028 




LDY 


SMODE 


; Preserve SMODE 


000029 




LDA 


#00 




000030 




LDX 


#5 




000031 


S020 


STA 


SMFLAGS, X 




000032 




LSR 


SMODE 


; Set SMODE flags 


000033 




ROR 


SMFLAGS, X 




000034 




DEX 






000035 




BPL 


$020 




000036 




STY 


SMODE 




000037 




LDA 


#79. 




000038 




BIT 


HMODE 


; Screen width := If 80 


000039 




BMI 


$100 


; then 79. 


000040 




LDA 


#39. 


; else 39. 


000041 


sioo 


CMP 


VPR 


;VPR <= Screen width 


000042 




BCS 


$110 




000043 




STA 


VPR 




000044 


$110 


LDA 


VPR 




000045 




CMP 


VPL 


;VPL <= VPR 


000046 




BCS 


$120 




000047 




STA 


VPL 




000048 


$120 


SEC 






000049 




LDA 


VPR 


; VPHMAX : = 


000050 




SBC 


VPL 


; VPR - VPL 


000051 




STA 


VPHMAX 




000052 




CMP 


TPX 


;TPX <= VPHMAX 


000053 




BCS 


$200 




000054 




STA 


TPX 




000055 


$200 


LDA 


#23 . 




000056 




CMP 


VPB 


;VPB <= Screen height 


000057 




BCS 


$210 




000058 




STA 


VPB 




000059 


$210 


LDA 


VPB 




000060 




CMP 


VPT 


;VPT <= VPB 


000061 




BCS 


$220 




000062 




STA 


VPT 




000063 


$220 


SEC 






000064 




LDA 


VPB 


; VPVMAX := 


000065 




SBC 


VPT 


; VPB - VPT 


000066 




STA 


VPVMAX 




000067 




CMP 


TPY 


;TPY <= VPVMAX 


000068 




BCS 


$300 




000069 




STA 


TPY 




000070 


$300 


LDA 


TCB 




000071 




AND 


#0F 


;TCB=TCB MOD 16 


000072 




STA 


TCB 




000073 




LDA 


TCF 




000074 




AND 


#0F 


;TCF=TCF MOD 16 


000075 




STA 


TCF 




000076 




ASL 


A 




000077 




ASL 


A 




000078 




ASL 


A 


;SET TCOLOR := 


000079 




ASL 


A 




000080 




ORA 


TCB 


;TCF * 16 + TCB 


000081 




STA 


TCOLOR 




000082 




PHP 






000083 




SEI 






000084 




LDA 


SCRNMODE 


; Check screen mode 


000085 




ASL 


A 




000086 




BMI 


$500 


; Graphics 


000087 




LDA 


E_REG 




000088 




ORA 


#BITON5 
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000089 


BCS 


$400 




000090 


AND 


IBITOFF5 




000091 $400 STA 


E_REG 




000092 


LDA 


HMODE 




000093 


AND 


#03 




000094 


BCC 


$410 




000095 


ORA 


#BITON7 




000096 $410 STA 


SCRNMODE 


; Set screen mode 


000097 


LSR 


A 




000098 


AND 


#01 




000099 


TAY 






000100 


LDA 


#00 




000101 


ROL 


A 




000102 


TAX 






000103 


LDA 


VMODE0, X 


;B&W / Color 


000104 


LDA 


VMODE 1 , Y 


;40 / 80 Column 


000105 


BIT 


VMODE2 


;Page 1 always 


000106 


BIT 


VMODE 3 


;Text of course 


000107 $500 PLP 






000108 


JSR 


TBASCAL 


;New base addr. 


000109 


RTS 






000110 


.PAGE 






000111 














000112 








000113 


Subroutine CURSOR 






000114 








000115 


This subroutine displays 


or removes the cursor 


oy inverting the 


000116 


character at the current 


cursor position. 




000117 








000118 


Parameters : none 






000119 








000120 


Exit : 






000121 


A, X, Y: Undefined 






000122 








000123 














000124 








000125 CURSOR .EQU 


* 




000126 


BIT 


SMCURSOR 


;is cursor enabled? 


000127 


BPL 


$020 


;if not, exit 


000128 


LDA 


TPX 




000129 


BIT 


HMODE 




000130 


BPL 


$010 


;40 col: X=TPX 


000131 


LSR 


A 


; 80 col : X-TPX/2 


000132 


BCC 


$010 




000133 


TAY 






000134 


LDA 


(BASE2) , Y 


;get character 


000135 


EOR 


#80 


; and invert it 


000136 


STA 


(BASE 2 ) , Y 


;put it back 


000137 


RTS 






000138 $010 TAY 






000139 


LDA 


(BASE1) , Y 


;get character 


000140 


EOR 


#80 


; and invert it 


000141 


STA 


(BASED , Y 


;put it back 


000142 $020 RTS 






000143 


.PAGE 






000144 














000145 








000146 


Single Character Screen 


Read (Console character copy) 


000147 








000148 


This subroutine returns 


the character at the current cursor position. 


000149 








000150 


Parameters : none 






000151 








000152 


Exit : 






000153 


A: character 






000154 


X, Y: Undefined 






000155 








000156 








000157 














000158 








000159 SCRNPICK . EQU 


* 




000160 


LDA 


TPX 




000161 


TAY 






000162 


BIT 


HMODE 




000163 


BPL 


$010 


;40 Col — Y : = TPX 


000164 


LSR 


A 


; 80 Col — Y : = TPX/2 


000165 


TAY 






000166 


BCC 


$010 




000167 


LDA 


(BASE2) , Y 


;Read odd text page 


000168 


BCS 


$020 




000169 $010 LDA 


(BASE1) , Y 


; Read even text page 


000170 $020 RTS 






000171 


.PAGE 






000172 














000173 








000174 


Subroutine TBASCAL — Text Base Address Calculator 


000175 








000176 


This subroutine sets the 


base address registers 


, BASE1 and BASE2, 


000177 


to point to the current 


line in screen memory. 


BASE1 always points 


000178 


to column of the current viewport while BASE2 


points to column 1 . 


000179 








000180 


Entry TBASCAL: 






000181 


Parameters : none 
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000182 










000183 


Entry TBASCAL 1 : 








000184 


Parameters : 








000185 


X: Absolute screen line number 






000186 










000187 


Exit (either entry point) : 






000188 


A: Undefined 








000189 


X: Absolute screen line number 






000190 


Y : Unchanged 








000191 










000192 


















000193 










000194 TBASCAL . EQU 


* 






000195 


CLC 








000196 


LDA 


TPY 




;vertical position 


000197 


ADC 


VPT 




; + viewport top 


000198 


TAX 








000199 TBASCAL 1 .EQU 


* 






000200 


CLC 








000201 


LDA 


VPL 




; viewport left: 


000202 


BIT 


HMODE 






000203 


BPL 


$010 




;if 80 column mode, 


000204 


LSR 


A 




; then divide by two 


000205 S010 PHP 








000206 


ADC 


BASL,X 




;base address (LO) 


000207 


STA 


BASE1 




; same for both pages 


000208 


STA 


BASE 2 






000209 


LDA 


BASH, X 




;base address (HI) 


000210 


PLP 








000211 


BCC 


$020 






000212 


DEC 


BASE1 




;Odd window adjustment 


000213 


EOR 


#0C 






000214 S020 STA 


BASE1+1 




;even page address 


000215 


EOR 


#0C 






000216 


STA 


BASE2+1 




;odd page address 


000217 


RTS 








000218 


.PAGE 








000219 


















000220 










000221 


Subroutine CLREOL — 


Clear to End of 


Line 




000222 










000223 


This subroutine clears the current line from 


the current cursor 


000224 


position to the end 


of the line. The 


starting position may be 


000225 


passed in Y using the CLREOL1 entry point. 


The text base address 


000226 


pointers, BASE1 and 


BASE2, must point 


to the 


current line. 


000227 










000228 


Entry CLREOL: 








000229 


Parameters : none 








000230 










000231 


Entry CLREOL 1: 








000232 


Parameters : 








000233 


Y: Starting horizontal position 






000234 










000235 


Zero Page Temporary 


Storage : 






000236 


BLANK, TEMPX 








000237 










000238 


Exit (either entry point) : 






000239 


A, Y: Undefined 






000240 


X: Preserved 








000241 










000242 


















000243 










000244 CLREOL .EQU 


* 






000245 


LDY 


TPX 




; horizontal position 


000246 CLREOL1 .EQU 








000247 


LDA 


#80+ASC_SP 




; Set up a blank 


000248 


EOR 


SMINV 






000249 


STA 


BLANK 






000250 


BIT 


HMODE 






000251 


BPL 


$200 






000252 


TYA 








000253 


BNE 


$150 






000254 










000255 


80 column clear ful" 


line 






000256 










000257 


LDA 


VPHMAX 




; Start at right edge 


000258 


LSR 


A 






000259 


TAY 








000260 


LDA 


BLANK 




; Load the blank 


000261 


BCC 


$110 






000262 S100 STA 


(BASE2) , Y 




; Clear odd column 


000263 $110 STA 


(BASED , Y 




; then even column 


000264 


DEY 








000265 


BPL 


$100 




; Repeat to BOL 


000266 


RTS 








000267 










000268 


80 column clear to end of line 






000269 










000270 $150 STX 


TEMPX 




; Save X 


000271 


CLC 








000272 


SBC 


VPHMAX 




; Calculate negative number 


000273 


TAX 






; of bytes to blank 


000274 


TYA 
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000275 




LSR 


A 


000276 




TAY 




000277 




LDA 


BLANK 


000278 




BCS 


$170 


000279 


S160 


STA 


(BASE1) , Y 


000280 




INX 




000281 




BPL 


$180 


000282 


S170 


STA 


(BASE2 ) ,Y 


000283 




INY 




000284 




INX 




000285 




BMI 


$160 


000286 


S180 


LDX 


TEMPX 


000287 




RTS 





00028 

0002 

0002 

0002 

0002 

0002 

0002 

0002 

0002 

0002 

0002 

0002 



40 column clear to end of line 



$200 



LDA 


BLANK 


STA 


(BASE1) , Y 


LDA 


TCOLOR 


STA 


(BASE2) , Y 


CPY 


VPHMAX 


INY 




BCC 


$200 


RTS 





;Load the blank 



; Restore X 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



CONS. UTL1. TEXT 

299 
13475 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS Console Driver 1.31 (6502 Assembly Source Code) 

# FILE NAME: CONS . UTL2 . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 



000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 



Subroutine CLREOS 



Clear to End of Screen 



This subroutine clears the screen from the current cursor position 
to the end of the viewport. The CLREOS1 entry allows the line number 
to be passed in X and the starting column number in Y. 



Entry CLREOS: 
Parameters : 



none 



Entry CLREOS 1: 
Parameters : 

X: Starting absolute line number 
Y: Starting column number 



Exit : 



X, Y: Undefined 



000023 


CLREOS 


.EQU 






000024 




CLC 






000025 




LDA 


TPY 




000026 




ADC 


VPT 




000027 




TAX 




; Get starting line number 


000028 




LDY 


TPX 


;Get starting cursor position 


000029 


CLREOS 1 


.EQU 






000030 


soio 


JSR 


TBASCAL1 




000031 




JSR 


CLREOL1 


; Clear this line 


000032 




LDY 


#0 


;Reset starting column 


000033 




CPX 


VPB 




000034 




INX 






000035 




BCC 


$010 




000036 




JMP 


TBASCAL 


; Reset base address 


000037 




.PAGE 







Scroll Text Viewport 

This subroutine scrolls the text within the viewport up or down by 
one line. On entry, A must contain an UP /DOWN flag ( $00 => UP, 
$80 => DOWN ) . 

Parameters : 

A: Up / Down flag 

Zero Page Temporary Storage: 

WORK1, WOR2: Screen pointers 

FLAGS: Bit 7 — even / odd flag for scroll loop 

Bit 6 — up / down flag 
TEMPI: Starting Y index for scroll loop 

Subroutines called: 

TBASCAL1, CLREOL1 



Undefined 



$010 



$020 
$030 



$040 



$050 



.EQU 


* 




STA 


FLAGS 


Save UP /DOWN flag 


SEC 






LDA 


VPHMAX 




BIT 


HMODE 




BPL 


$010 




LSR 


A 




STA 


TEMPI 


Get starting loop index 


ROR 


FLAGS 


Save even/odd flag 


LDX 


VPT 




BIT 


FLAGS 




BVC 


$020 




LDX 


VPB 




JSR 


TBASCAL 1 


Get starting base addresses 


BIT 


FLAGS 




BVC 


$040 




CPX 


VPT 


Scroll down 


BEQ 


$080 


All done 


DEX 




Go up one line 


BPL 


$050 




CPX 


VPB 


Scroll up 


BEQ 


$080 


All done 


INX 




Go down one line 


LDA 


BASE1 
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000089 


LDY 




BASE1+1 




;Copy source address 


000090 


STA 




WORK1 




; to destination address 


000091 


STY 




WORK1+1 






000092 


LDA 




BASE2 






000093 


LDY 




BASE2+1 






000094 


STA 




WORK2 






000095 


STY 




WORK2+1 






000096 


JSR 




TBASCAL1 




;Get next source address 


000097 


LDY 




TEMPI 






000098 


BIT 




FLAGS 






000099 


BPL 




$070 






000100 S060 LDA 




(BASE2) , Y 




; Scroll this line 


000101 


STA 




(WORK2) , Y 




; move odd column 


000102 S070 LDA 




(BASE1) , Y 




; move even column 


000103 


STA 




(WORK1) ,Y 






000104 


DEY 










000105 


BPL 




$060 






000106 


BMI 




$030 






000107 












000108 S080 LDY 




#0 






000109 


JSR 




CLREOL1 




; Clear last line 


000110 


JMP 




TBASCAL 






000111 


.PAGE 










000112 






















000113 












000114 


Horizontal Shift 










000115 












000116 


This subroutine shifts the text within the 


viewport 


left or right. 


000117 


On entry, A must contain 


an eight bit signed shift 


offset, negative 


000118 


for left shifts and positive for right shifts. 




000119 












000120 


Parameters : 










000121 


A: Signed shift offset 






000122 












000123 


Zero Page Temporary 


Storage : 






000124 


BLANK, TEMPX 










000125 


WORK1, WORK2 : 


Screen pointers 






000126 


FLAGS : Bit 7 


— right / left flag 






000127 


Bit 6 


— odd 


/ even flag for 


shift right 


000128 


TEMPI: Positive shift offset 






000129 


TEMP 2 : Absolute shift column 






000130 


TEMP 3 : shift 


right 


— starting shift 


index 




000131 


shift 


left - 


- shift count 






000132 


TEMP 4 : shift 


right 


— starting clear 


index 




000133 


shift 


left - 


- column for clear 




000134 












000135 


Subroutines Called: 










000136 


CLREOS1, CLREOL1 








000137 












000138 


Exit : 










000139 


A, X, Y: Undefined 








000140 












000141 






















000142 












000143 SHIFT .EQU 




* 






000144 


TAY 










000145 


BEQ 




$020 




; Nothing to do 


000146 


AND 




#BITON7 






000147 


STA 




FLAGS 




;Set right / left flag 


000148 


TYA 










000149 


CMP 




#80 






000150 


BCC 




$010 






000151 


EOR 




#0FF 




;Make shift count positive 


000152 S010 ADC 




#00 






000153 


STA 




TEMPI 




;Absolute shift offset 


000154 


ADC 




VPL 




; Absolute column number 


000155 


STA 




TEMP 2 




; for base address 


000156 


LDX 




VPT 






000157 


SEC 










000158 


LDA 




VPHMAX 






000159 


SBC 




TEMPI 






000160 


BCS 




$030 






000161 


LDY 




#00 




; Shift entire viewport 


000162 


JSR 




CLREOS1 






000163 S020 RTS 










000164 S030 BIT 




FLAGS 






000165 


BMI 




$060 






000166 












000167 


SEC 








; Set up for shift right 


000168 


BIT 




HMODE 






000169 


BPL 




$040 






000170 


LSR 




A 






000171 S040 STA 




TEMP 3 




; Set starting index for shifting 


000172 


LDA 




#BITON6 






000173 


BCS 




$050 






000174 


LDA 




#00 






000175 $050 ORA 




FLAGS 




; Set odd / even flag 


000176 


STA 




FLAGS 






000177 


LDY 




TEMPI 






000178 


DEY 










000179 


STY 




TEMP 4 




; Set index for clearing 


000180 


LDA 




#80+ASC_SP 






000181 


EOR 




SMINV 
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000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 



$060 



$070 



$010 



$020 



SHFIRT 

$010 

$020 



$030 
$040 



$050 
$060 



SHIFT2 



$010 



$020 



STA 


BLANK 


JMP 


SHIFT1 


TAY 




BIT 


HMODE 


BMI 


$070 


SEC 




ROL 


A 


STA 


TEMP 3 


INY 




STY 


TEMP 4 


JSR 


TBASCAL1 


CLC 




LDA 


TEMP 2 


BIT 


HMODE 


BPL 


$010 


LSR 


A 


PHP 




ADC 


BASL,X 


STA 


WORK1 


STA 


WORK2 


LDA 


BASH, X 


PLP 




BCC 


$020 


DEC 


WORK1 


EOR 


#0C 


STA 


WORK1+1 


EOR 


#0C 


STA 


WORK2+1 


BIT 


FLAGS 


BMI 


SHFTLF 


LDY 


TEMP 3 


BVC 


$020 


LDA 


(BASE2 ) , Y 


STA 


(WORK2) , Y 


LDA 


(BASE1) , Y 


STA 


(WORK1) ,Y 


DEY 




BPL 


$010 


LDA 


TEMP 4 


BIT 


HMODE 


BPL 


$050 


LSR 


A 


TAY 




LDA 


BLANK 


BCC 


$040 


STA 


(BASE2) , Y 


STA 


(BASE1 ) , Y 


DEY 




BPL 


$030 


BMI 


SHIFT2 


TAY 




LDA 


BLANK 


STA 


(BASE1) , Y 


LDA 


TCOLOR 


STA 


(BASE2) ,Y 


DEY 




BPL 


$060 


CPX 


VPB 


INX 




BCC 


SHIFT1 


JMP 


TBASCAL 


LDY 


#00 


STX 


TEMPX 


LDX 


TEMP 3 


LDA 


(WORK1) , Y 


STA 


(BASE1) , Y 


DEX 




BMI 


$020 


LDA 


(WORK2) ,Y 


STA 


(BASE2) ,Y 


INY 




DEX 




BPL 


$010 


LDX 


TEMPX 


LDY 


TEMP 4 


JSR 


CLREOL1 


JMP 


SHIFT2 


.PAGE 





; Set up space character 

; Set up for shift left 

; Set count for shifting 

; Set index for clearing 

;Get base address 



;Get shifted base address 



; Shift this line right 



; Clear beginning of line 



; Go to next line 



; Shift this line left 
;Get shift count 



Dump and Restore Contents of Viewport 

This subroutine will dump or restore the contents of the viewport to 
or from the caller's buffer. On entry, A must contain a dump/restore 
flag. ($00 => Dump $80 => Restore} 

Parameters : 

A: Dump / Restore flag 
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000275 










000276 


Zero 


Page 


Temporary 


Storage : 


000277 




WORK1 


, WORK2 : 


Extended pointers 


000278 




FLAGS 


: Bit 7 - 


- odd / even move 


000279 






Bit 6 - 


- dump / restore 


000280 




TEMPI 


: Starting move index 


000281 




TEMP 2 


: Move count 


000282 










000283 


Exit 








000284 




A, X, 


Y: Undefined 


000285 










000286 


















000287 










000288 SCRNDUMP 


. EQU 


* 


000289 






STA 


FLAGS 


000290 






JSR 


CURSOR 


000291 






LDA 


VPHMAX 


000292 






STA 


TEMP 2 


000293 






INC 


TEMP 2 


000294 






BIT 


HMODE 


000295 






BMI 


$010 


000296 






AST 


TEMP 2 


000297 






ASL 


A 


000298 S010 




LSR 


A 


000299 






STA 


TEMPI 


000300 






ROR 


FLAGS 


000301 






CLC 




000302 






LDA 


SCLIST 


000303 






ADC 


#03 


000304 






STA 


WORK1 


000305 






LDA 


SCLIST+1 


000306 






ADC 


#00 


000307 






CMP 


#0F0 


000308 






LDX 


1401+SCLIST 


000309 






BCC 


$020 


000310 






SBC 


#80 


000311 






INX 




000312 $020 




STA 


WORK1+1 


000313 






STX 


1401+WORK1 


000314 






LDA 


TEMP2 


000315 






LSR 


A 


000316 






ADC 


WORK1 


000317 






STA 


WORK2 


000318 






LDA 


WORK1+1 


000319 






ADC 


#00 


000320 






STA 


WORK2+1 


000321 






STX 


1401+WORK2 


000322 










000323 


Copy 


the contents of 


the window 


000324 










000325 






LDX 


VPT 


000326 $100 




JSR 


TBASCAL1 


000327 






LDY 


TEMPI 


000328 






BIT 


FLAGS 


000329 






BVS 


$120 


000330 










000331 






BPL 


$115 


000332 $110 




LDA 


(BASE2) , Y 


000333 






STA 


(WORK2) ,Y 


000334 $115 




LDA 


(BASE1) ,Y 


000335 






STA 


(WORK1) ,Y 


000336 






DEY 




000337 






BPL 


$110 


000338 






BMI 


$140 


000339 










000340 $120 




BPL 


$135 


000341 $130 




LDA 


(WORK2) , Y 


000342 






STA 


(BASE2) , Y 


000343 $135 




LDA 


(WORK1) , Y 


000344 






STA 


(BASED , Y 


000345 






DEY 




000346 






BPL 


$130 


000347 










000348 $140 




CLC 




000349 






LDA 


WORK1 


000350 






ADC 


TEMP 2 


000351 






STA 


WORK1 


000352 






BCC 


$150 


000353 






INC 


WORK1+1 


000354 $150 




CLC 




000355 






LDA 


WORK2 


000356 






ADC 


TEMP 2 


000357 






STA 


WORK2 


000358 






BCC 


$160 


000359 






INC 


WORK2+1 


000360 $160 




CPX 


VPB 


000361 






INX 




000362 






BCC 


$100 


000363 










000364 






JSR 


TBASCAL 


000365 






JSR 


CURSOR 


000366 






RTS 




000367 






.PAGE 





; Turn cursor off 



; Set work pointers to 
; to caller's buffer 



;Adjust extended address 



; Restore cursor 
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000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 



ZPOUT 

This subroutine saves the driver's zero page data. 



ZPOUT 

soio 



LDX 
LDA 
STA 
DEX 
BPL 
RTS 



#ZPLENGTH-1 
ZPDATA, X 
ZPSAVE,X 

$010 



; Zero Page save area length 



#################################################################################################### 
# END OF FILE: CONS . UTL2 . TEXT 
LINES : 382 

CHARACTERS : 16487 

Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



# 



#################################################################################################### 



### 
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